最新精品文档,知识共享?/p>
第五次作业(前三题写在作业纸上)
一?/p>
用有限差分方法求解一维非定常热传导方程,
初始条件和边界条件见说明
文件?/p>
热扩散系数?/p>
=const
?/p>
2
2
T
T
t
x
?/p>
?/p>
?/p>
?/p>
?/p>
?/p>
1.
?/p>
Tylaor
展开法推导出
FTCS
格式的差分方?/p>
2.
讨论该方程的相容性和稳定性,并说明稳定性要求对求解差分方程的影响?/p>
3.
说明该方程的类型和定解条件,如何在程序中实现这些定解条件?/p>
4.
编写
M
文件求解上述方程,并用适当的文字对程序做出说明?/p>
(部分由网络搜索?
到,添加,修改后得到?/p>
?/p>
function rechuandaopde
%
以下所用数据,除了
t
的范围我根据题目要求取到?/p>
20000
,其余均?/p>
中得?/p>
a=0.00001;%a
的取?/p>
xspan=[0 1];%x
的取值范?/p>
tspan=[0 20000];%t
的取值范?/p>
ngrid=[100 10];%
分割的份数,前面的是
t
轴的,后面的?/p>
x
轴的
f=@(x)0;%
初?/p>
g1=@(t)100;%
边界条件一
g2=@(t)100;%
边界条件?/p>
[T,x,t]=pdesolution(a,f,g1,g2,xspan,tspan,ngrid);%
计算所调用的函?/p>
[x,t]=meshgrid(x,t);
mesh(x,t,T);%
画图,并且把坐标轴名称改?/p>
x
?/p>
t
?/p>
T
xlabel('x')
ylabel('t')
zlabel('T')
T%
输出温度矩阵
dt=tspan(2)/ngrid(1);%t
步长
h3000=3000/dt;