向前差分格式 matlab,热传导方程向前差分格式的MATLAB程序

向前差分格式MATLAB编程:

clear;clc;

format short e

a=input('请输入系数a的值');

l=input('请输入长度l的值');

M=input('请输入将区间[0,1]等分的个数M ');

ot=input('请输入时间增量ot的值');

n=input('请输入运行次数n的值');

ox=1/M;

x0=zeros(M+1,1)

for ii=1:M

x0(ii+1)=ii*ox;

end

u=sin(pi*x0/l);

r=a*ot/(ox)^2;

for ii=1:n

%数据的输入

B=zeros(M-1,1);

A=zeros(M-2,1);

C=zeros(M-2,1);

S=zeros(M-1,1);

for ii=1:M-2

B(ii)=1+2*r;A(ii)=-r;C(ii)=-r;

S(ii)=u(ii+1,1);

end

B(M-1,1)=1+2*r;S(M-1,1)=u(M,1);u(1,2)=0;u(M+1,2)=0; S(1,1)=S(1,1)+r*u(1,2);S(M-1,1)=S(M-1,1)+r*u(M+1,2); %追赶法

S(1)=S(1)/B(1);T=B(1);k=2;

while k~=M

B(k-1)=C(k-1)/T;

T=B(k)-A(k-1)*B(k-1);

S(k)=(S(k)-A(k-1)*S(k-1))/T;

k=k+1

end

k=1;

while k~=M-1

S(M-1-k)=S(M-1-k)-B(M-1-k)*S(M-k);

k=k+1;

end

D=(1-2*r)*eye(M-1);

temp=r*linspace(1,1,M-2);

D=D+diag(temp,1)+diag(temp,-1);

S=D*S

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值