单线圈matlab分析docWord格式.docx

单线圈matlab分析docWord格式.docx

《单线圈matlab分析docWord格式.docx》由会员分享，可在线阅读，更多相关《单线圈matlab分析docWord格式.docx（6页珍藏版）》请在冰点文库上搜索。

4,-2:

2）;

z=y+0.5;

R=1;

Bx=-2.*（x.^2.*mfun（'

EllipticK'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））-（x.^2）.*mfun（'

EllipticE'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））-2.*R.*mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*x+mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（z.^2）-R.^2.*mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））+mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（R.^2）-mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（z.^2））.*（（R.^2+x.^2+z.^2-2.*R.*x）./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）.*z./（R.^2+x.^2+z.^2-2.*R.*x）.^（3/2）./x;

Bz=2.*（x.^2.*mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（R.^2）+mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（z.^2）-mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）））.*（z.^2）+R.^2.*mfun（'

（2.*（R.*x./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2））））.*（（R.^2+x.^2+z.^2-2.*R.*x）./（R.^2+x.^2+z.^2+2.*R.*x））.^（1/2）./（R.^2+x.^2+z.^2-2.*R.*x）.^（3/2）;

%surf（x,z,Bz）;

B1=sqrt（Bx.^2+Bz.^2）;

z=y-0.5;

B2=sqrt（Bx.^2+Bz.^2）;

B=B1+B2;

%surf（x,y,B）;

subplot（1,2,1）;

surf（x,y,B1）;

view（90,0）;

subplot（1,2,2）;

surf（x,y,B2）;

%title（'

surf（x,z,B）'

）;

%[zlabel（'

B'

%ylabel（'

z'

%xlabel（'

x'

%view（90,0）;