SHARE
TWEET

Untitled

a guest Jul 24th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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"}]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top