6An-Introduction-to-Mathematica.nb 偶极子电场展示 n83= rn=10 Ex0[y_],Ey0[y_],Ez0[y_]} Abs [x] Abs [x] bs【x]2+bs-1+y2+2bs【z1)2(bs【x12+Abs[y2+bs[212)3/2 Abs[-1+y] Abs [y] (abx12+Abs[-1+y12+bs[2]2)212(bsx2+助by2+助b(212)22 Abs[z] Abs[z] 3 y Abs [x] (Ex1y],Ey1(y-1,Ez1y-])-{ (Abs[x]2+Abs [y1+ Abs[z]2) 3 y Abs [y] (absx12+Bbsy12+Mb【1)”2(absx]2+助bsy]2+助bsz12)2/2 3 y Abs[z] (Abs[]2+Abs [y]+ Abs[]2) VectorPlot3D [(Exo y], Eyo [y], Ezo[y]),[x, -rn, rn], [y, -rn, rn] r rn], VectorScale +[Large, Scaled [0. 3], None] Vector colorFunction Hue, AxesLabel Automatic] VectorPlot3D [Exl [y], Eyl [ y], Ezly]), ix,-rn, rn], y, -rn, rn] [, -rn, rn], VectorScale+[Large, Scaled [0.3], None] Vectorc。o1 frUnction→Hue, AxesLabe1→ Automatic] Out!86 utomatic偶极子电场展示 In[83]:= rn = 10; 8Ex0@y_D, Ey0@y_D, Ez0@y_D< = :- Abs@xD IAbs@xD 2 + Abs@-1 + yD 2 + Abs@zD 2M 32 + Abs@xD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 32 , - Abs@-1 + yD IAbs@xD 2 + Abs@-1 + yD 2 + Abs@zD 2M 32 + Abs@yD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 32 , - Abs@zD IAbs@xD 2 + Abs@-1 + yD 2 + Abs@zD 2M 32 + Abs@zD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 32 >; 8Ex1@y_D, Ey1@y_D, Ez1@y_D< = :- 3 y Abs@xD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 52 , 1 IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 32 - 3 y Abs@yD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 52 , - 3 y Abs@zD IAbs@xD 2 + Abs@yD 2 + Abs@zD 2M 52 >; VectorPlot3D@8Ex0@yD, Ey0@yD, Ez0@yD<, 8x, -rn, rn<, 8y, -rn, rn<, 8z, -rn, rn<, VectorScale ® 8Large, Scaled@0.3D, None<, VectorColorFunction ® Hue, AxesLabel ® AutomaticD VectorPlot3D@8Ex1@yD, Ey1@yD, Ez1@yD<, 8x, -rn, rn<, 8y, -rn, rn<, 8z, -rn, rn<, VectorScale ® 8Large, Scaled@0.3D, None<, VectorColorFunction ® Hue, AxesLabel ® AutomaticD Out[86]= -10 -5 0 5 10 -10 -5 0 5 10 -10 -5 0 5 10 Automatic 6 An-Introduction-to-Mathematica.nb