应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 数学 » 计算数学 » 中心差分求解二维热传导的matlab程序
北京石油化工学院2026年研究生招生接收调剂公告
131/2返回列表12下一页
查看: 3379  |  回复: 12
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

paipai314

金虫 (初入文坛)

[求助] 中心差分求解二维热传导的matlab程序

clear;close all;
L=100;S=120;M=20;N=24;timeMax=50000;
Currtime=100;DL=[0:L/M:L];DS=[0:S/N:S];
T=ones(M,N,timeMax)*30;
T(1:M,1,1:1:timeMax)=50;
T(1:M,N,1:1:timeMax)=50;
T(1,1:N,1:1:timeMax)=80;
T(M,1:N,1:1:timeMax)=100;
f=0.1;
for i=2:M-1
  for j=2:N-1
    T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+(1-4*f)*T(i,j,1)+f*T(i+1,j,1);
  end;
end;
for t=3:timeMax
for i=2:M-1
  for j=2:N-1
    T(i,j,t)=f*T(i-1,j,t-1)+f*T(i,j-1,t-1)-4*f*T(i,j,t-1)+f*T(i+1,j,t-1)+f*T(i,j+1,t-1)+T(i,j,t-2);
  end;
end;
end;
[x,y]=meshgrid(1:M,1:N);
mesh(T(1:M,1:N,Currtime));
title(['2D Temperature Field, t=',num2str(Currtime-1),'s']);
xlabel('x length(L/M)');
ylabel('y length(L/N)');
zlabel('Temperature(^oC)')
运行结果不正确，是方程不收敛么==  求大神指导，求思路
回复此楼

» 收录本帖的淘帖专辑推荐

好帖子

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-09-21 19:56:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

cjltxxz

新虫 (初入文坛)
lz，想请教一下您是如何修正的？
赞一下(2人) 回复此楼
9楼2014-09-23 08:47:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dailycrane

新虫 (初入文坛)
想请教一下是如何修正的？
赞一下(1人) 回复此楼
10楼2014-09-24 23:36:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

yongcailiu

金虫 (小有名气)
for i=2:M-1
  for j=2:N-1
    T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+(1-4*f)*T(i,j,1)+f*T(i+1,j,1);
  end;
end;
这里面用的公式不对吧？循环体执行的应该是
T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+f*T(i,j+1,1)-4*f*T(i,j,1)+f*T(i+1,j,1);

如果结果还不正确，可能对于你给定的方程，中心差分法不满足收敛性或者稳定性了
赞一下 回复此楼
2楼2013-09-21 20:11:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

paipai314

金虫 (初入文坛)
引用回帖:
2楼: Originally posted by yongcailiu at 2013-09-21 20:11:05
for i=2:M-1
  for j=2:N-1
    T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+(1-4*f)*T(i,j,1)+f*T(i+1,j,1);
  end;
end;
这里面用的公式不对吧？循环体执行的应该是
T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+f*T(i,j+1 ...

也还是不对的，，，
我的思路是，中心差分的时间差有2，所以需要知道前2秒的状态才可以继续算后面的，所以第2秒的状态先用前向差分算。这个思路是不是正确的？有误的话烦请指教一下。或者有没有其他的思路？
赞一下 回复此楼
3楼2013-09-21 20:25:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

paipai314

金虫 (初入文坛)
引用回帖:
2楼: Originally posted by yongcailiu at 2013-09-21 20:11:05
for i=2:M-1
  for j=2:N-1
    T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+(1-4*f)*T(i,j,1)+f*T(i+1,j,1);
  end;
end;
这里面用的公式不对吧？循环体执行的应该是
T(i,j,2)=f*T(i-1,j,1)+f*T(i,j-1,1)+f*T(i,j+1 ...

如果是方程不满足收敛性，可以修正么？该如何修正？
赞一下 回复此楼
4楼2013-09-21 20:32:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yongcailiu

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
paipai314: 金币+5, ★★★很有帮助 2013-09-22 22:28:02
引用回帖:
4楼: Originally posted by paipai314 at 2013-09-21 20:32:37
如果是方程不满足收敛性，可以修正么？该如何修正？...

如果你求解的是二维的热传导方程的话，用中心差分格式可能确实不行。原因是一维的热传导方程，中心差分格式（Richardson格式）恒不稳定。参见高教出版社李荣华等编著的《微分方程数值解法（第四版）》第三章的内容，里面提到了一维情形下的分数步长法，理论结果挺好的，希望对你有帮助。另外，你的程序写的没问题，我当时没有理解好你要求解的方程，看程序中的代码你使用的好像不是中心差分格式，倒像是向前差分格式，而采用向前差分格式是条件稳定的，也就是时间步长tao，前面的系数a(对应你程序里面的f)和空间步长h应该满足一定条件，即r=a*tao/(h*h)<=0.5（一维情况下的结果）。
赞一下 回复此楼
5楼2013-09-22 22:01:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

paipai314

金虫 (初入文坛)
引用回帖:
5楼: Originally posted by yongcailiu at 2013-09-22 22:01:55
如果你求解的是二维的热传导方程的话，用中心差分格式可能确实不行。原因是一维的热传导方程，中心差分格式（Richardson格式）恒不稳定。参见高教出版社李荣华等编著的《微分方程数值解法（第四版）》第三章的内容 ...

程序中先用了向前差分求t=2的时候的状态，之后就是用中心差分的了，那个方程确实是不稳定的，修正了一下就可以了。
非常感谢你的答复！
赞一下 回复此楼
6楼2013-09-22 22:17:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

paipai314

金虫 (初入文坛)
引用回帖:
5楼: Originally posted by yongcailiu at 2013-09-22 22:01:55
如果你求解的是二维的热传导方程的话，用中心差分格式可能确实不行。原因是一维的热传导方程，中心差分格式（Richardson格式）恒不稳定。参见高教出版社李荣华等编著的《微分方程数值解法（第四版）》第三章的内容 ...

额，第1次发帖，这个金币是要怎么给你的==
赞一下 回复此楼
7楼2013-09-22 22:25:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

paipai314

金虫 (初入文坛)
引用回帖:
5楼: Originally posted by yongcailiu at 2013-09-22 22:01:55
如果你求解的是二维的热传导方程的话，用中心差分格式可能确实不行。原因是一维的热传导方程，中心差分格式（Richardson格式）恒不稳定。参见高教出版社李荣华等编著的《微分方程数值解法（第四版）》第三章的内容 ...

金币已给
回复此楼
8楼2013-09-22 22:28:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 paipai314 的主题更新
131/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 可跨专业调剂 +3 周的得地 2026-04-04 6/300 2026-04-04 22:21 by barlinike
[考研] 环境285分，过六级，求调剂 +10 xhr12 2026-04-02 10/500 2026-04-04 21:53 by bn53987
[考研] 298求调剂 +5 zzz，，r 2026-04-02 8/400 2026-04-04 19:55 by 蓝云思雨
[考研] 332求调剂 +10 Lyy930824@ 2026-03-29 10/500 2026-04-04 18:41 by macy2011
[考研] 285求调剂 +4 AZMK 2026-04-04 5/250 2026-04-04 16:45 by cql1109
[考研] 求调剂：085600材料与化工，考材科基，总分319 +21 678lucky 2026-03-31 26/1300 2026-04-04 16:22 by dongzh2009
[考研] 289-求调剂 +4 这里是_ 2026-04-03 4/200 2026-04-03 14:23 by 1753564080
[考研] 工科341分调剂 +3 洛多罗 2026-04-03 3/150 2026-04-03 14:20 by 1753564080
[考研] 求调剂 +3 usbdndj 2026-04-03 3/150 2026-04-03 14:10 by dxiaoxin
[考研] 311求调剂一志愿合肥工业大学 +15 秋二十二 2026-03-30 15/750 2026-04-03 10:19 by linyelide
[考研] 309求调剂 +14 呆菇不是戴夫 2026-04-02 14/700 2026-04-03 09:42 by 蓝云思雨
[考研] 求调剂！生物与医药专硕 +4 逆转陆先生 2026-04-01 5/250 2026-04-03 08:33 by Jaylen.
[考研] 一志愿a区211，085601-307分求调剂 +13 党嘉豪 2026-03-31 26/1300 2026-04-03 08:33 by 495374996
[考研] 372分材料与化工（085600）一志愿湖南大学求调剂 +5 蓝笺片 2026-04-02 6/300 2026-04-02 21:37 by dongzh2009
[考研] 求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分 +11 @taotao 2026-03-29 11/550 2026-04-02 10:04 by realme321
[考博] 26年申博 +3 staryer 2026-03-30 4/200 2026-04-01 23:21 by ai4pharm
[考研] 285求调剂 +11 AZMK 2026-04-01 11/550 2026-04-01 22:40 by peike
[考研] 考研调剂 +9 小蜡新笔 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
信息提示
关闭
请填处理意见
关闭