ͼ1ÖÐp=3£»JÊǵÚÒ»Àà±´Èû¶ûº¯Êý£»Í¼2ÖÐRe±íʾȡʵ²¿£¬ÇóºÍÊÇnÈ¡-20:20£»thetaΪ»ý·ÖÒò×ÓÔ¤ÆÚÉú³ÉµÄͼÏñÈçͼ3Ëùʾ£¬
ÏÂÃæÊÇÎÒ×Ô¼º±àµÄÒ»¸ö³ÌÐò£¬µ«ÊÇÔËÐнá¹ûÓëÔ¤ÆÚͼÏñ²î¾àºÜ´ó£¬ÎÒ±àµÄ³ÌÐòÉú³ÉµÄͼÏñÈçͼ4Ëùʾ£¬
Ï£Íû¸÷λ´óÉñ°ï°ï棬СÃÃÏÖÔÚÕâÀï˵ÉùллÁË¡£
ÏÂÃæ¸½ÉÏÎÒ×Ô¼º±àµÄ³ÌÐò´úÂ룬ϣÍû´óÉñÃÇÖ¸³öÎÊÌâËùÔÚ£º
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%clear,clc;
rho=3;% fractional vortex
x=0;
y=0;
for n=-20:20
a=1;
for S=-3:0.2:3
b=1;
for alpha=-3:0.2:3
psi(a,b)=(n/eps(n-alpha))*sqrt(pi/8)*(-i).^(abs(n)/2).*rho.*exp(i*rho.^2/4).*...
(besselj((abs(n)-1)/2,rho.^2/4)-i.*besselj((abs(n)+1)/2,rho.^2/4)).*...
quad(@(theta) exp(i.*n.*theta),0,2*pi);
x=psi(a,b)+x;
psi(a,b)=x;
psi2(a,b)=sqrt(pi/8)*(-i).^(abs(n)/2).*rho.*exp(i*rho.^2/4).*...
(besselj((abs(n)-1)/2,rho.^2/4)-i.*besselj((abs(n)+1)/2,rho.^2/4)).*...
quad(@(theta) exp(i.*n.*theta),0,2*pi)./eps(n-alpha);
y=psi2(a,b)+y;
psi2(a,b)=y;
b=b+1;
end
a=a+1;
end
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%psi3=x/y;
psi4=real(psi3)/(2*pi);
plot(psi4)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
![[color=Black][font=ËÎÌå]matlabÏÈÇóºÍÂð£¬ÔÙ»ý·Ö£¬ÇóºÍÖÐÓлý·ÖÒò×Ó[/font][/color]]()
ͼƬ1.png
![[color=Black][font=ËÎÌå]matlabÏÈÇóºÍÂð£¬ÔÙ»ý·Ö£¬ÇóºÍÖÐÓлý·ÖÒò×Ó[/font][/color]-1]()
ͼƬ2.png
![[color=Black][font=ËÎÌå]matlabÏÈÇóºÍÂð£¬ÔÙ»ý·Ö£¬ÇóºÍÖÐÓлý·ÖÒò×Ó[/font][/color]-2]()
ͼƬ3.png
![[color=Black][font=ËÎÌå]matlabÏÈÇóºÍÂð£¬ÔÙ»ý·Ö£¬ÇóºÍÖÐÓлý·ÖÒò×Ó[/font][/color]-3]()
ͼ4.jpg |