西电电院电磁场与电磁波大作业.docVIP

下载本文档

3
0
约1.94千字
约 3页
2017-08-20 发布于北京
举报
版权申诉

西电电院电磁场与电磁波大作业.doc

1、本文档共3页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

q=-2/5; xm=4; ym=4; 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=5*(1./R1+q./R2); u=-5:0.3:5; figure contour(X,Y,U,u) grid on legend(num2str(u)) hold on plot([-xm;xm],[0;0]) plot([0;0],[-ym;ym]) plot(-1,0,o,MarkerSize,12) plot(1,0,o,MarkerSize,12) [Ex,Ey]=gradient(-U,x(2)-x(1),y(2)-y(1)); dangle1=20; angle1=(dangle1:dangle1:180-dangle1)*pi/180; r0=0.1; x1=r0*cos(angle1)-1; y1=r0*sin(angle1); streamline(X,Y,Ex,Ey,x1,y1) streamline(X,-Y,Ex,-Ey,x1,-y1) dangle2=dangle1/q; angle2=(180-dangle2:-dangle2:dangle2)*pi/180; x2=r0*cos(angle2)+1; y2=r0*sin(angle2); streamline(X,Y,Ex,Ey,x2,y2) streamline(X,-Y,Ex,-Ey,x2,-y2) axis equal tight title(+5电荷和-2电荷的电场线和电位线,fontsize,20) xlabel(\itx,fontsize,16) ylabel(\ity,fontsize,16) text(-xm,ym-0.5,电势单位:\itkQ\rm_1,fontsize,16) txt=[电荷比:\itQ\rm_2/\itQ\rm_1= num2str(q)]; text(-xm,-ym+0.5,txt,fontsize,16) z=0:0.03:5; Ex=2*cos(z*2*pi); Ey=2*cos((z+1/4) *2*pi); figure(1) plot3(Ex, z,Ey, b,linewidth,2); grid on hold on plot3([-2;2],[0;0],[0;0]); plot3([0;0],[0;5],[0;0]); plot3([0;0],[0;0],[-2;2]); axis([-2 2 0 5 -2 2]) xlabel(x轴); ylabel(z轴); zlabel(y轴); title(螺旋线)