i1 : W = QQ[x,y,Dx,Dy, WeylAlgebra => {x=>Dx,y=>Dy}]
o1 = W
o1 : PolynomialRing
|
i2 : L = x^2*Dy + y*Dy^2 + 3*Dx^5*Dy
5 2 2
o2 = 3Dx Dy + x Dy + y*Dy
o2 : W
|
i3 : Fourier L
5 2 2
o3 = 3x y + y*Dx - y Dy - 2y
o3 : W
|