作业帮 > 综合 > 作业

这是一个MATLAB程序,

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/11 12:49:57
这是一个MATLAB程序,
A=[6,-2,2,4;12,-8,4,10;3,-13,3,3;-6,4,2,18];
b=[0;-10;-39;-16];
B=[A b];
ra=rank(A);
rb=rank(B);
n=length(b);
X=zeros(n,1); C=zeros(1,n+1);
if ra>rb
disp('B的秩大于A的秩,方程组无解!')
return;
elseif ra==rb & rb==n
disp('B和A的秩均等于n,方程组有唯一解,用高斯列主元消去法求解过程如下:')
for p=1:n-1
disp('p=');
disp(p);
[Y,j]=max(abs(B(p:n,p)));
disp('j=');
disp(j);
C=B(p,:);
B(p,:)= B(j+p-1,:); B(j+p-1,:)=C;
disp(B);
for k=p+1:n
m= B(k,p)/ B(p,p);
B(k,p:n+1)= B(k,p:n+1)-m* B(p,p:n+1);
end
disp(B);
end
b=B(1:n,n+1);A=B(1:n,1:n); X(n)=b(n)/A(n,n);
for q=n-1:-1:1
X(q)=(b(q)-sum(A(q,q+1:n)*X(q+1:n)))/A(q,q);
end
disp(X)
else
disp('B和A的秩相等切小于n,方程组有无穷解!')
end
这应该属于线性代数中,求解线性方程组AX=b中的解X(X1,X2……Xn),这个程序基本上可以用matlab中的一句话代替 X=A\b ,只是这个运算在方程组有无穷多解的情况下会报错.
你的程序的详细注释如下:
A=[6,-2,2,4;12,-8,4,10;3,-13,3,3;-6,4,2,18]; % 线性方程组系数矩阵 A
b=[0;-10;-39;-16]; % AX=b 中的 b
B=[A b]; %构造 增广矩阵 B
ra=rank(A) % 求解系数矩阵 A 的秩
rb=rank(B) % 求解增广矩阵 B 的秩
n=length(b); % 得到 b 的长度,后面要用到
X=zeros(n,1); % 初始化向量 X 用于存放方程组的解
C=zeros(1,n+1); % 初始化 C 用于下面的两行交换
if ra>rb % 如果增广矩阵的秩大于系数矩阵的秩,则方程组无解,(提示一下,这里程序错了,应该是 ra