利用时域有限差分法模拟二维坐标中波传播，使用Origin成功作图。
上传时间： 2014-11-05
上传用户：fredguo
利用时域有限差分法模拟二维光子晶体光纤中光的传播
上传时间： 2017-08-22
上传用户：上善若水
利用时域有限差分方法模拟光子晶体光纤的算法程序
上传时间： 2013-12-26
上传用户：xauthu
时域有限差分法的算法 时域有限差分法的算法
上传时间： 2017-09-05
上传用户：x4587
微波相关专辑 共31册 341M电磁场计算中的时域有限差分法（王常清） 382页 12.3M pdf版.pdf
标签：
上传时间： 2014-05-05
上传用户：时代将军
function [alpha,N,U]=youxianchafen2(r1,r2,up,under,num,deta) %[alpha,N,U]=youxianchafen2(a,r1,r2,up,under,num,deta) %该函数用有限差分法求解有两种介质的正方形区域的二维拉普拉斯方程的数值解 %函数返回迭代因子、迭代次数以及迭代完成后所求区域内网格节点处的值 %a为正方形求解区域的边长 %r1,r2分别表示两种介质的电导率 %up,under分别为上下边界值 %num表示将区域每边的网格剖分个数 %deta为迭代过程中所允许的相对误差限 n=num+1; %每边节点数 U(n,n)=0; %节点处数值矩阵 N=0; %迭代次数初值 alpha=2/(1+sin(pi/num));%超松弛迭代因子 k=r1/r2; %两介质电导率之比 U(1,1:n)=up; %求解区域上边界第一类边界条件 U(n,1:n)=under; %求解区域下边界第一类边界条件 U(2:num,1)=0;U(2:num,n)=0; for i=2:num U(i,2:num)=up-(up-under)/num*(i-1);%采用线性赋值对上下边界之间的节点赋迭代初值 end G=1; while G>0 %迭代条件：不满足相对误差限要求的节点数目G不为零 Un=U; %完成第n次迭代后所有节点处的值 G=0; %每完成一次迭代将不满足相对误差限要求的节点数目归零 for j=1:n for i=2:num U1=U(i,j); %第n次迭代时网格节点处的值 if j==1 %第n+1次迭代左边界第二类边界条件 U(i,j)=1/4*(2*U(i,j+1)+U(i-1,j)+U(i+1,j)); end if (j>1)&&(j U2=1/4*(U(i,j+1)+ U(i-1,j)+ U(i,j-1)+ U(i+1,j)); U(i,j)=U1+alpha*(U2-U1); %引入超松弛迭代因子后的网格节点处的值 end if i==n+1-j %第n+1次迭代两介质分界面（与网格对角线重合）第二类边界条件 U(i,j)=1/4*(2/(1+k)*(U(i,j+1)+U(i+1,j))+2*k/(1+k)*(U(i-1,j)+U(i,j-1))); end if j==n %第n+1次迭代右边界第二类边界条件 U(i,n)=1/4*(2*U(i,j-1)+U(i-1,j)+U(i+1,j)); end end end N=N+1 %显示迭代次数 Un1=U; %完成第n+1次迭代后所有节点处的值 err=abs((Un1-Un)./Un1);%第n+1次迭代与第n次迭代所有节点值的相对误差 err(1,1:n)=0; %上边界节点相对误差置零 err(n,1:n)=0; %下边界节点相对误差置零 G=sum(sum(err>deta))%显示每次迭代后不满足相对误差限要求的节点数目G end
标签： 有限差分
上传时间： 2018-07-13
上传用户：Kemin
二维Helmholtz方程的高阶有限差分方法，
上传时间： 2019-04-29
上传用户：s997861000
有限差分法的简单原理和概念，，，，，，，，，，，，
标签： 有限差分
上传时间： 2019-06-18
上传用户：mrchen...
特别好的有限差分讲解资料， 对偏微分方程的差分方法作了完整的论述
标签： 有限差分
上传时间： 2019-07-19
上传用户：huanglaoxie884
该文档为基于Python求解偏微分方程的有限差分法简介文档，是一份很不错的参考资料，具有较高参考价值，感兴趣的可以下载看看………………
标签： python
上传时间： 2021-11-12
上传用户：
