10An-Introduction-to-Mathematica. nb 谐振腔场分布展示 rn=10 Bx[t_]:=Re[-2 I* sin[x]* Cos[z]*eI By[t]:=0 Bz[t-1:=Re[2 I* Cos[x]* sin[z]*e Ex8[t]:=0; Ey8[t_]:=Re[-28n【x]sin【2]e2] Ez8[t]:=0 Manipulate[ [VectorPlot[[Bx[t], If[x<8,0,1]],[x,-rn, rn], y, -rn, rn), VectorScale-+ [Large, Automatic, Automatic], VectorcolorFunction Hue, VectorPoints-101 VectorPlot[[If[x<8,0,l], Ey8[t]], [x, -rn, rn], [y, -rn, rn] VectorScale +[Large, Automatic, Automatic] Vectorc。1 afUnction→且ue, VectorPoints→10]},t,1,10}]谐振腔场分布展示 In[88]:= rn = 10; Bx@t_D := ReA-2 I * Sin@xD * Cos@zD * ã I*tE; By@t_D := 0; Bz@t_D := ReA2 I * Cos@xD * Sin@zD * ã I*tE; Ex8@t_D := 0; Ey8@t_D := ReA-2 Sin@xD Sin@zD ã I*tE; Ez8@t_D := 0; z = 1; Manipulate@ 8VectorPlot@8Bx@tD, If@x < 8, 0, 1D<, 8x, -rn, rn<, 8y, -rn, rn<, VectorScale ® 8Large, Automatic, Automatic<, VectorColorFunction ® Hue, VectorPoints ® 10D, VectorPlot@8If@x < 8, 0, 1D, Ey8@tD<, 8x, -rn, rn<, 8y, -rn, rn<, VectorScale ® 8Large, Automatic, Automatic<, VectorColorFunction ® Hue, VectorPoints ® 10D<, 8t, 1, 10<D 10 An-Introduction-to-Mathematica.nb