Question

Mathematica问题

如何只显示图中红色部分，去除蓝色部分

附源程序：
w=10;a=1;b=0.5;H=1;kc=\[Sqrt](Pi^2*(m^2/a^2+n^2/b^2));
kz=(w^2-kc^2)^(1/2);m=1;n=0;
Hz[x_,y_,z_,t_]:=H*Cos[m*Pi*x/a]*Cos[n*Pi*y/b]*Cos[kz*z-w*t];
Hx[x_,y_,z_,t_]:=-kz/kc^2*H*m*Pi/a*Sin[m*Pi*x/a]*Cos[n*Pi*y/b]*Sin[kz*z-w*t];
Hy[x_,y_,z_,t_]:=-kz/kc^2*H*n*Pi/b*Cos[m*Pi*x/a]*Sin[n*Pi*y/b]*Sin[kz*z-w*t];
Ex[x_,y_,z_,t_]:=-kz/w CrossProduct[{0,0,1},{Hx[x,y,z,t],Hy[x,y,z,t],0}][[1]];
Ey[x_,y_,z_,t_]:=-kz/w CrossProduct[{0,0,1},{Hx[x,y,z,t],Hy[x,y,z,t],0}][[2]];
Ez[x_,y_,z_,t_]:=0;
Table[VectorPlot3D[{Ex[xx,yy,zz,ti],Ey[xx,yy,zz,ti],Ez[xx,yy,zz,ti]},{xx,0,1},{yy,0,0.5},{zz,0,2}],{ti,0,2*Pi,1}]

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）

Answer 1

……你的图里为什么会有红色的部分？这段程序里根本没有能画出红色部分的代码啊？