?? luzhuigan.m
字號(hào):
function [L,U,x]=LUzhuigan(A,f)
% 對(duì)于帶狀矩陣的追趕法
n=length(A);
a=diag(A)';
b=[diag(A,1)',0];
c=[0,diag(A,-1)'];
for i=1:n
if i==1
ap(i)=a(i);
bp(i)=b(i)/ap(i);
y(i,1)=f(i,1)/ap(i);
else
ap(i)=a(i)-c(i)*bp(i-1);
if i==n
bp(i)=0;
else
bp(i)=b(i)/ap(i);
end
y(i,1)=(f(i,1)-c(i)*y(i-1,1))/ap(i);
end
end
% 這里 L U還不行!
L=diag(ap);
U=eye(n);
for k=n:-1:1
if k==n
x(k,1)=y(k,1);
else
x(k,1)=y(k,1)-bp(k)*x(k+1,1);
end
end
end
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -