电磁场的Matlab仿真

……………最新资料推荐…………………Matlab与电磁场模拟一单电荷的场分布：单电荷的外部电位计算公式： q40r外辐射的线。MATLAB程序：theta=[0:.01:2*pi]';r=0:10;x=sin(theta)*r;y=cos(theta)*r;plot(x,y,'b')x=linspace(-5,5,100);fortheta=[-pi/40pi/4]y=x*tan(theta);holdon;plot(x,y);endgridon单电荷的等位线和电力线分布图：……………最新资料推荐…………………二多个点电荷的电场情况：模拟一对同号点电荷的静电场,其带电量分别为+Q1和Q2>0)距离为2aP(x,y)处产生的电势为:由电场强度可得E=-U,在xOy平面上,电场强度的公式为:为了简单起见,对电势U做如下变换:。Matlab程序：q=1;xm=2.5;ym=2;……………最新资料推荐…………………x=linspace(-xm,xm);y=linspace(-ym,ym);[X,Y]=meshgrid(x,y);R1=sqrt((X+1).^2+Y.^2);R2=sqrt((X-1).^2+Y.^2);U=1./R1+q./R2;u=1:0.5:4;figurecontour(X,Y,U,u)gridonlegend(num2str(u'))holdonplot([-xm;xm],[0;0])plot([0;0],[-ym;ym])plot(-1,0,'o','MarkerSize',12)plot(1,0,'o','MarkerSize',12)[DX,DY]=gradient(U);quiver(X,Y,-DX,-DY);surf(X,Y,U);同号电荷的静电场图像为：11.5250 2.533.540 43020100-2 -2-10 012 2……………最新资料推荐…………………同理，将程序稍作修改，便可以得到异号电荷的静电场图像：4040302011.522.533.54100-10-20-30-40-2.52-2-1.5-1-0.500.511.522.5-20三、线电荷产生的电位：z=-Lz=L,q(C/m),xy平面上的电位分布。dVqdLr00/dVqdLr00然后对全部电荷求和即可。xyxy平面上的电位仅取决于离原点的垂直距离R维，只取R为自变量。把R010Nr+1点，对每一点计算其电位。Matlab程序：clearall;L=input(L＝’);N=input(N＝’);……………最新资料推荐…………………Nr=input(‘分段数Nr＝’);q=input(‘电荷密度q= E0=8.85e-12;C0=1/4/pi/E0;L0=linspace(-L,L,N+1);L1=L0(1:N);L2=L0(2:N+1);Lm=(L1+L2)/2;dL=2*L/N;R=linspace(0,10,Nr+1);fork=1:Nr+1Rk=sqrt(Lm.^2+R(k)^2);Vk=C0*dL*q./Rk;V(k)=sum(Vk);end[max(V),min(V)]plot(R,V),grid线电荷产生的静电位分布图：……………最新资料推荐…………………四计算平面上N个电荷之间的库伦引力1建模：FFqq /r2Fqq(xx)/r3F qq(yy)/r3120x12 2 10yr12 210(xx)2(yy)22 1 2 1先输入电荷的数目，各电荷的坐标及电荷量，再选一个电荷，求其它电荷对它的作用力，叠加求合力。再选下一个电荷，依次类推。Matlab程序：clearall;N=input('ÊäÈëµçºÉÊýÄ¿N=:');foric=1:N/n¸öµçºÉ#%g\n',ic);rc=input('ÊäÈëµçºÉλÖÃ[x,y]£¨Ã×£©:');x(ic)=rc(1);y(ic)=rc(2);q(ic)=endE0=8.85e-12;C0=1/(4*pi*E0);foric=1:NFx=0.0;Fy=0.0;forjc=1:Nif(ic~=jc)xij=x(ic)-x(jc);yij=y(ic)-y(jc);Rij=sqrt(xij^2+yij^2);Fx=Fx+C0*q(ic)*q(jc)*xij/Rij^3;Fy=Fy+C0*q(ic)*q(jc)*yij/Rij^3;endendend……………最新资料推荐…………………五有限差分法处理电磁场问题Matlab程序:m=40fork=1:mforj=1:mifk==1V(j,k)=1;elseif((j==1)|(j==m)|(k==m))V(j,k)=0;elseendendendcha=0.01;delta=0;

V(j,k)=0.5;……………最新资料推荐…………………n=0;while(1)n=n+1;fork=2:m-1forj=2:m-1Vnew(j,k)=1/4*(V(j+1,k)+V(j-1,k)+V(j,k+1)+V(j,k-1