4An-Introduction-to-Mathematica.nb MY WORK 偶极子电势展示 r1={0,0,0};r2=[0,1,0};q1=-1;q2=1;rn=10 φ[x,y,z]= Norm[[x, y, z]-rl] Norm[[x, y, z)-r2 机[xy2。(x2-x1)·{x,y,z Norm[(x,y, z)-r1]3 【x,y_,z_]=中【x,Y,z]-中[x,Y,z Manipulate[Plot3D[φ中[x,Y,z],叽【x,Y,z],【x,y,z]}, Plotsty1e→(Bue,purp⊥e,Red}, axeslabe1→ Automatic],{z,0.1,xn}] Manipulate[PLot[{φ[x,Y,z],中【x,Y,z],【x,Y,z]},{x,-rn,rn PlotRange -All, Plotstyle -[Blue, Purple, Red]], ly, -rn, rn],[z,0, rn]] ou81=MY WORK 偶极子电势展示 r1 = 80, 0, 0<; r2 = 80, 1, 0<; q1 = -1; q2 = 1; rn = 10; Φ@x_, y_, z_D = q1 Norm@8x, y, z< - r1D + q2 Norm@8x, y, z< - r2D ; Φ1@x_, y_, z_D = Hr2 - r1L.8x, y, z< Norm@8x, y, z< - r1D 3 ; Φ2@x_, y_, z_D = Φ1@x, y, zD - Φ@x, y, zD; Manipulate@Plot3D@8Φ@x, y, zD, Φ1@x, y, zD, Φ2@x, y, zD<, 8x, -rn, rn<, 8y, -rn, rn<, PlotRange ® All, PlotStyle ® 8Blue, Purple, Red<, AxesLabel ® AutomaticD, 8z, 0.1, rn<D Manipulate@Plot@8Φ@x, y, zD, Φ1@x, y, zD, Φ2@x, y, zD<, 8x, -rn, rn<, PlotRange ® All, PlotStyle ® 8Blue, Purple, Red<D, 8y, -rn, rn<, 8z, 0, rn<D Out[81]= z -10 -5 0 5 10 x -10 -5 0 5 10 1 -0.05 0.00 0.05 4 An-Introduction-to-Mathematica.nb