Advertisement
Guest User

Untitled

a guest
Jul 24th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. LG[r_, [Phi]_, p_, l_,
  2. w_] := (Sqrt[(2 p!)/([Pi] (p + Abs[l])!)] 1/
  3. w E^(-r^2/w^2) ((r Sqrt[2])/w)^Abs[l] LaguerreL[p, Abs[l],
  4. 2 r^2/w^2] E^(I l [Phi]))
  5.  
  6. Module[{l = 1, p = 0, xMax = 3, zMax}, zMax = 2 Pi ;
  7. DensityPlot3D[If[Cos[I( l [Phi] -I z)==0,
  8. Re[LG[Sqrt[x^2 + y^2], ArcTan[x, y], p, l, 1] Exp[-I z]]], {x, -xMax,
  9. xMax}, {y, -xMax, xMax}, {z, 0, zMax}, PlotPoints -> 60,
  10. AxesLabel -> {"x", "y", "z"}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement