clear all; close all; q01=2; q02=-2; e0=8.85*1e-12; k=1/(4*pi*e0); omega=1; r1=[-2,0]'; r2=[2,0]'; x=-5:5; y=-5:5; [X,Y]=meshgrid(x,y); a1=sqrt((X-r1(1)).^2+(Y-r1(2)).^2); a2=sqrt((X-r2(1)).^2+(Y-r2(2)).^2); myVideo = VideoWriter('myVideoF…

clear all; close all; q1=2; q2=-2; e0=8.85*1e-12; k=1/(4*pi*e0); x=-5:5; y=-5:5; r1=[-2,0]'; r2=[2,0]'; [X,Y]=meshgrid(x,y); a1=sqrt((X-r1(1)).^2+(Y-r1(2)).^2); a2=sqrt((X-r2(1)).^2+(Y-r2(2)).^2); E1x=q1*k./a1^3.*(X-r1(1)); E1y=q1*k./a1^3.…

clear all; close all; I=1; x=-5:5; y=-5:5; z=-5:5; [X,Y,Z]=meshgrid(x,y,z); Hx=-I/(2*pi)*Y./(X.^2+Y.^2); Hy=I/(2*pi)*X./(X.^2+Y.^2); Hz=0*X; plot3([0,0],[0,0],[z(1),z(end)],'r-','linewidth',5); hold on; quiver3(X,Y,Z,Hx,Hy,Hz,'b');