La=Laguerre(p,abs(l),2.*pi.^2.*r.^2.*w0.^2.*(pi.^2.*w0.^4+lambda.^2.*z.^2).^(-1));%调用LG 多项式 outoam=out1.*La; end
其中:
Laguerre 公式
1 2 3 4 5 6 7 8 9 10 11 12 13
functiony=Laguerre(p,l,x) %%This file generates the Laguerre functions stired in the variable "y" The %%inputs are: the indices "p","l" and the vector "x". y=zeros(p+1,1); if p==0 y=1; else for m=0:p y(p+1-m)=((-1).^m.*(factorial(p+l)))./(factorial(p-m).*factorial(l+m).*factorial(m)); end end y=polyval(y,x);