mathematica.nb|7 Out[87] rn=10 Manipulate [[VectorPlot[ [ExO [y], Eyo [y]], [x, -rn, rn],[z,-rn, rn] Vector Scale→{ Large, Automatic,None},vect。rco1 orFunction→Hue] VectorPlot[[Exl [ y], Eyl [y]1, [x,-rn, rn),(z, -rn, rn] VectorScale -[Large, Automatic, None), VectorColorFunction Hue]], y,0, 101]Out[87]= -10 -5 0 5 10 -10 -5 0 5 10 -10 -5 0 5 10 Automatic In[67]:= rn = 10; Manipulate@8VectorPlot@8Ex0@yD, Ey0@yD<, 8x, -rn, rn<, 8z, -rn, rn<, VectorScale ® 8Large, Automatic, None<, VectorColorFunction ® HueD, VectorPlot@8Ex1@yD, Ey1@yD<, 8x, -rn, rn<, 8z, -rn, rn<, VectorScale ® 8Large, Automatic, None<, VectorColorFunction ® HueD<, 8y, 0, 10<D An-Introduction-to-Mathematica.nb 7