清空筛选条件
清空筛选条件

I modified the code more than once and every time there was an error, can someone tell me where the problem is and how to solve it?

3 次查看（过去 30 天）
Saad Almalki
Saad Almalki 2022-5-11
评论： Mathieu NOE 2022-5-11
function out = Crank_Niclson( D, u)
beta=0.5;
% where D = alpha * dt / dx^2
A=zeros(length(u),length(u));
B=u;
B(2:end-1)=B(2:end-1)*(1-2*(1-beta)*D);
for i=1:length(u)
%[I,J]=xxx(size,i);
I=i;
if i==1 ||i==length(u)
A(i,i)=1;
else
for j=1:length(u)
%[I1,J1]=xxx(size,j);
I1=j;
A(i,i)=1+2*beta*D;
if abs(I1-I) >1
A(i,j)=0;
elseif I1-I==+1
B(i)=B(i)+(1-beta)*D*u(j);
A(i,j)=-beta*D;
elseif I1-I==-1
B(i)=B(i)+(1-beta)*D*u(j);
A(i,j)=-beta*D;
end
end
end
end
out = (A\B')';
end

请先登录，再回答此问题。

回答（0 个）

类别

在 Help Center 和 File Exchange 中查找有关 Get Started with MATLAB 的更多信息

标签

产品


版本

R2020b

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by