高斯列主元消去法
function X=Gauss_pivot(A,B)
% 用Gauss列主主元消去法解線(xiàn)性方程組AX=B
%X是未知向量
n=length(B);
X=zeros(n,1);
c=zeros(1,n);
d1=0
for i=1:n-1
max=abs(A(i,i));
m=i;
for j=i+1:n
if max