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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 数学 » 计算数学 » 中心差分求解二维热传导的matlab程序
131/2返回列表12下一页
查看: 3344  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学调剂 ，六级已过，有科研经历 +4 曦熙兮 2026-03-15 4/200 2026-03-15 18:01 by JourneyLucky
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 3/150 2026-03-15 17:32 by 小物理化学
[考研] 274求调剂 +4 时间点 2026-03-13 4/200 2026-03-15 15:29 by Rambo13
[考研] 材料专硕326求调剂 +4 墨煜姒莘 2026-03-15 4/200 2026-03-15 11:02 by dyw
[考研] 289求调剂 +4 这么名字咋样 2026-03-14 6/300 2026-03-14 18:58 by userper
[考研] 265求调剂 +4 威化饼07 2026-03-12 4/200 2026-03-14 17:23 by userper
[考研] 255求调剂 +3 李嘉慧， 2026-03-12 4/200 2026-03-14 16:58 by 有只狸奴
[考研] 331求调剂（0703有机化学 +5 ZY-05 2026-03-13 6/300 2026-03-14 10:51 by Jy?
[考研] 学硕285求调剂 +13 Wisjxn 2026-03-12 46/2300 2026-03-14 10:33 by JourneyLucky
[考研] 295复试调剂 +5 简木ChuFront 2026-03-09 5/250 2026-03-14 01:29 by JourneyLucky
[考研] 318求调剂 +3 李新光 2026-03-10 3/150 2026-03-14 00:21 by JourneyLucky
[考研] 0805，333求调剂 +3 112253525 2026-03-10 3/150 2026-03-13 23:42 by JourneyLucky
[考研] 341求调剂 +4 番茄头--- 2026-03-10 4/200 2026-03-13 23:12 by JourneyLucky
[考研] 求材料调剂 085600英一数二总分302 前三科235 精通机器学习 一志愿哈工大 +4 林yaxin 2026-03-12 4/200 2026-03-13 22:04 by 星空星月
[考研] 四川大学085601材料工程专硕 初试294求调剂 +4 祝我们好在冬天 2026-03-11 4/200 2026-03-13 21:39 by peike
[考研] 求调剂 +5 一定有学上- 2026-03-12 5/250 2026-03-13 18:31 by ms629
[考研] 293求调剂 +3 世界首富 2026-03-11 3/150 2026-03-13 16:27 by JourneyLucky
[考研] 302求调剂 +6 负心者当诛 2026-03-11 6/300 2026-03-13 16:11 by JourneyLucky
[考研] 304求调剂（085602一志愿985） +12 化工人999 2026-03-09 12/600 2026-03-13 12:02 by JourneyLucky
[考研] 282分材料专业求调剂院校 +18 枫桥ZL 2026-03-09 25/1250 2026-03-13 10:47 by 白夜悠长
信息提示
关闭
请填处理意见
关闭