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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » 哪位高手能用matlab编程求解一维瞬态热传导方程，先谢谢啦
51/1返回列表
查看: 2921  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

weixiaogirl

木虫 (小有名气)

[求助] 哪位高手能用matlab编程求解一维瞬态热传导方程，先谢谢啦

请问哪位高手能帮忙解决一个一维瞬态热传导方程，用matlab语言实现，方程及其要求见附件，先谢谢各位啦！
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 用matlab求解热传导方程.rar
    • 2012-12-24 08:29:35, 34.26 K

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

好帖子

» 猜你喜欢
坚持就是胜利
1楼 2012-12-24 08:29:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weixiaogirl

木虫 (小有名气)
引用回帖:
2楼: Originally posted by 11jxli1 at 2012-12-24 10:24:46
你把资料截图上传大家方便浏览
以为热传导问题MAT喇叭有现成程序
你查阅MATLAB使用指南

谢谢你啦！热传导方程及其要求见下面图片。请求高手帮助～！同时预祝大家圣诞元旦快乐！

热传导方程及要求.JPG
赞一下 回复此楼
坚持就是胜利
4楼2012-12-24 11:20:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

11jxli1

禁虫 (著名写手)
感谢参与，应助指数 +1
本帖内容被屏蔽
2楼2012-12-24 10:24:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weixiaogirl

木虫 (小有名气)
引用回帖:
2楼: Originally posted by 11jxli1 at 2012-12-24 10:24:46
你把资料截图上传大家方便浏览
以为热传导问题MAT喇叭有现成程序
你查阅MATLAB使用指南

若若地问下，我是新手，意思是我截图上传重新发帖求助是吗？谢谢啦
赞一下 回复此楼
坚持就是胜利
3楼2012-12-24 11:12:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

elever1989

铜虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
jjdg: 编辑内容 2012-12-31 05:14
jjdg: 编辑内容 2012-12-31 05:15
jjdg: 金币+2, 辛苦了 2012-12-31 05:16:04
weixiaogirl: 金币+5, ★有帮助, 谢谢楼主的指导帮助 2013-01-08 09:11:23
CODE:
h=L/N;%空间步长
z=0:h:L;%空间点坐标数组
z=z';%矩阵转置
tao=lambda*h^2/alfa;%时间步长
tm=M*tao;%热传导的总时间tm
t=0:tao:tm;%时间点坐标数组
t=t';%矩阵转置
%计算初值和边值
T=zeros(N+1,M+1);%赋温度矩阵初值
Ti=init_fun(z);%各空间点处的初始条件
To=border_funo(t);%内边界条件
Te=border_fune(t);%外边界条件
T(:,1)=Ti;
T(1,:)=To;
T(N+1,:)=Te;% 赋予温度矩阵边界条件值与初始条件值
%用差分法求出温度T与杆长L、时间t的关系
for k=1:M
    m=2;
    while m<=N
    T(m,k+1)=lambda*(T(m+1,k)+T(m-1,k))+(-2*lambda+1)*T(m,k);
    m=m+1;
    end;
end;
%设置立体网格
for i=1:M+1
    X(:,i)=z;
end;
for j=1:N+1
    Y(j,:)=t;
end
mesh(X,Y,T);
view([1 -1 1]);
xlabel('Z');
ylabel('t');
zlabel('T');

function y=init_fun(z)%初值条件
y=1-z.^2;
return

function y=border_funo(t)%z=0的边界条件
y=1+t.*0;
return

function y=border_fune(t)%z=L的边界条件
y=t*.0;
return

%

希望对你有所帮助

[ Last edited by jjdg on 2012-12-31 at 05:15 ]
赞一下(3人) 回复此楼
That'smystyle
5楼2012-12-31 00:21:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭