Advertisement
Guest User

Untitled

a guest
Sep 28th, 2016
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. h[[Nu]_] := 2 BesselJ[1, [Nu]]/[Nu]
  2.  
  3. G[[Nu]_] :=
  4. Piecewise[{{(Abs[h[[Nu]]]^2)*(2*Pi*
  5. NIntegrate[(Abs[h[t]]^2)*t, {t, 0, a - [Nu]}] +
  6. 2*NIntegrate[(Abs[h[t]]^2)*t*
  7. ArcCos[((t^2 + [Nu]^2 - a)/(2*t*[Nu]))]^2, {t,
  8. a - [Nu], [Nu] + a}]), [Nu] <
  9. a}, {(Abs[h[[Nu]]]^2)*(2*
  10. NIntegrate[(Abs[h[t]]^2)*t*
  11. ArcCos[((t^2 + [Nu]^2 - a)/(2*t*[Nu]))]^2, {t, [Nu] -
  12. a, [Nu] + a}]), [Nu] > a}}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement