| 查看: 3743 | 回复: 12 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
中心差分求解二维热传导的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)') 运行结果不正确，是方程不收敛么== 求大神指导，求思路 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
怎么看青基中了没有啊
已经有6人回复
-
国社科又开始会评了，不知道这次命运如何
已经有11人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
基金未中，这种答复是模板吗？
已经有7人回复
12楼2015-11-07 22:01:44
yongcailiu
金虫 (小有名气)
- 应助: 63 (初中生)
- 金币: 2283.9
- 红花: 10
- 帖子: 181
- 在线: 250.4小时
- 虫号: 1406563
- 注册: 2011-09-18
- 性别: GG
- 专业: 计算数学与科学工程计算
2楼2013-09-21 20:11:05
3楼2013-09-21 20:25:40
4楼2013-09-21 20:32:37
