matlab实现有限差分法计算电场强度(共5页)

上传人:痛*** 文档编号:128710038 上传时间:2022-08-01 格式:DOC 页数:5 大小:95KB
收藏 版权申诉 举报 下载
matlab实现有限差分法计算电场强度(共5页)_第1页
第1页 / 共5页
matlab实现有限差分法计算电场强度(共5页)_第2页
第2页 / 共5页
matlab实现有限差分法计算电场强度(共5页)_第3页
第3页 / 共5页
资源描述:

《matlab实现有限差分法计算电场强度(共5页)》由会员分享,可在线阅读,更多相关《matlab实现有限差分法计算电场强度(共5页)(5页珍藏版)》请在装配图网上搜索。

1、实验一:有限差分法研究静电场边值问题实验报告人: 年级和班级: 学号:1. 实验用软件工具: Matlab2. 实验原理:电磁场课本P36-381) 差分方程2) 差分方程组的解简单迭代法高斯-赛德尔迭代法逐次超松弛法3. 实验步骤:1)简单迭代法程序:hx=41;hy=21;v1=zeros(hy,hx);v1(hy,:)=zeros(1,hx);v1(1,:)=ones(1,hx)*100;v1(:,1)=zeros(hy,1);v1(:,hx)=zeros(hy,1);v1v2=v1;maxt=1;t=0;k=0;while(maxt1e-5) k=k+1; maxt=0;for i=2

2、:hy-1 for j=2:hx-1 v2(i,j)=(v1(i,j+1)+v1(i+1,j)+v1(i-1,j)+v1(i,j-1)/4; t=abs(v2(i,j)-v1(i,j); if(tmaxt) maxt=t;end endendv1=v2;endv2kclfsubplot(1,2,1),mesh(v2)axis(0,41,0,21,0,100)subplot(1,2,2),contour(v2,15)hold onaxis(-1,42,-1,25)plot(1,1,hx,hx,1,1,hy+1,hy+1,1,1,r)text(hx/2,0.3,0V,fontsize,11);te

3、xt(hx/2-0.5,hy+0.5,100V,fontsize,11);text(-0.5,hy/2,0V,fontsize,11);text(hx+0.3,hy/2,0V,fontsize,11);hold off当W=1e-5, 迭代次数:1401次2)高斯-赛德尔迭代法程序:hx=41;hy=21;v1=ones(hy,hx);v1(hy,:)=zeros(1,hx);v1(1,:)=ones(1,hx)*100;v1(:,1)=zeros(hy,1);v1(:,hx)=zeros(hy,1);v2=v1;maxt=1;t=0;k=0;while(maxt1e-5) k=k+1; ma

4、xt=0;for i=2:hy-1 for j=2:hx-1 v2(i,j)=(v1(i,j+1)+v1(i+1,j)+v2(i-1,j)+v2(i,j-1)/4; t=abs(v2(i,j)-v1(i,j); if(tmaxt) maxt=t;end endendv1=v2;endv2kclfsubplot(1,2,1),mesh(v2)axis(0,41,0,21,0,100)subplot(1,2,2),contour(v2,15)hold onaxis(-1,42,-1,25)plot(1,1,hx,hx,1,1,hy+1,hy+1,1,1,r)text(hx/2,0.3,0V,fon

5、tsize,11);text(hx/2-0.5,hy+0.5,100V,fontsize,11);text(-0.5,hy/2,0V,fontsize,11);text(hx+0.3,hy/2,0V,fontsize,11);hold off当W=1e-5, 迭代次数:740次3)逐次超松弛法程序:hx=41;hy=21;v1=zeros(hy,hx);v1(hy,:)=zeros(1,hx);v1(1,:)=ones(1,hx)*100;v1(:,1)=zeros(hy,1);v1(:,hx)=zeros(hy,1);v1v2=v1;maxt=1;t=0;alpha=input(please

6、 input the value of alpha(alpha=1 & alpha1e-5) k=k+1; maxt=0;for i=2:hy-1 for j=2:hx-1 v2(i,j)=v1(i,j)+(v1(i,j+1)+v1(i+1,j)+v2(i-1,j)+v2(i,j-1)-4*v1(i,j)*alpha/4; t=abs(v2(i,j)-v1(i,j); if(tmaxt) maxt=t;end endendv1=v2;endv2kclfsubplot(1,2,1),mesh(v2)axis(0,41,0,21,0,100)subplot(1,2,2),contour(v2,15

7、)hold onaxis(-1,42,-1,25)plot(1,1,hx,hx,1,1,hy+1,hy+1,1,1,r)text(hx/2,0.3,0V,fontsize,11);text(hx/2-0.5,hy+0.5,100V,fontsize,11);text(-0.5,hy/2,0V,fontsize,11);text(hx+0.3,hy/2,0V,fontsize,11);hold off当W=1e-5, alpha取不同值时迭代次数alpha1.01.11.21.31.41.51.61.71.81.9迭代次数742616509417336263197133801614)画三维曲面图

8、和等位线图(逐次超松弛法最佳迭代次数时)程序:hx=41;hy=21;v1=zeros(hy,hx);v1(hy,:)=zeros(1,hx);v1(1,:)=ones(1,hx)*100;v1(:,1)=zeros(hy,1);v1(:,hx)=zeros(hy,1);v1v2=v1;maxt=1;t=0;alpha=1.8;k=0;while(maxt1e-5) k=k+1; maxt=0;for i=2:hy-1 for j=2:hx-1 v2(i,j)=v1(i,j)+(v1(i,j+1)+v1(i+1,j)+v2(i-1,j)+v2(i,j-1)-4*v1(i,j)*alpha/4;

9、 t=abs(v2(i,j)-v1(i,j); if(tmaxt) maxt=t;end endendv1=v2;endv2kclfsubplot(1,2,1),mesh(v2)axis(0,41,0,21,0,100)subplot(1,2,2),contour(v2,15)hold onaxis(-1,42,-1,25)plot(1,1,hx,hx,1,1,hy+1,hy+1,1,1,r)text(hx/2,0.3,0V,fontsize,11);text(hx/2-0.5,hy+0.5,100V,fontsize,11);text(-0.5,hy/2,0V,fontsize,11);te

10、xt(hx+0.3,hy/2,0V,fontsize,11);hold off贴图:4实验结论(1)matlab软件在使用有限差分法研究静电场边值问题中有着重要的作用,它能够快捷有效并且准确的解决边值问题,是解决计算相对复杂问题的有效工具。(2)从各个方法的迭代次数可以看出:在给定相同的最大允许误差W的条件下,简单迭代法使用的次数最多,为1401次;高斯赛德尔迭代法可以明显减少迭代次数,其迭代次数为740次;如果应用逐次超松弛法,则迭代次数与加速收敛因子有关,且在加速收敛因子选取合适值时,可以使迭代次数相对于其它迭代方法更加显著减少。如在加速收敛因子为1.8时,其迭代次数尽为80次。(3)在以后应用迭代法解决边值问题时,应最好选用逐次超松弛法,且在使用时,应注意选取合适的加速收敛因子的值。

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!