?? duio.m
字號:
function [y,A]=duio(A,x,y)
[m,n]=size(A);
if min(A(2:m,n))<0
flag=0;
else
flag=1;
end
while flag==0
[h1,i]=min(A(2:m,n));
i=i+1;
for k=1:n-1
if (A(i,k)~=0 & A(1,k)~=0)
q(k)=abs(A(1,k)./A(i,k));
else
q(k)=inf;
end
end
[h2,j]=min(q);
y(i-1)=x(j);
A(i,:)=A(i,:)./A(i,j);
for r=1:m
if r~=i
A(r,:)=A(r,:)+(-A(r,j)).*A(i,:);
end
end
if min(A(2:m,n))<0
flag=0;
else
flag=1;
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -