?? sympos2.m
字號:
function [x,L,D]= SymPos2 (A,b)
N = size(A);
n = N(1);
L = eye(n,n); %L的對角元素為1
d = zeros(n,1);
for k=1:n
d(k,1) = A(k,k)-L(k,1:(k-1)).*L(k,1:(k-1))*d(1:(k-1),1);
%D的第k個對角元素
for i=(k+1):n
L(i,k) = (A(i,k)-L(i,1:(k-1)).*L(k,1:(k-1))*d(1:(k-1),1))/d(k,1);
%L的第k列
end
end
D = diag(d);
y = SolveDownTriangle(L,b); %求解y
for i=1:n
y(i,1)=y(i,1)/d(i,1);
end
x = SolveUpTriangle(transpose(L),y); %求解x
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -