输入方程组的系数矩阵和常数向量A = 223; 477; -245;b = 3; 1; -7; 构造增广矩阵Ab = A b 高斯-若尔当消去法for k = 1sizeA1 将第k行主元素归一 Abk = Abk Abkk; 将其他行的第k列元素变为0 for i = 1sizeA1 if i ~= k Abi = Abi - A
输出,保留两位小数:
% 高斯-若尔当消去法 for k = 1:size(A,1) % 将第k行主元素归一 Ab(k,:) = Ab(k,:) / Ab(k,k); % 将其他行的第k列元素变为0 for i = 1:size(A,1) if i ~= k Ab(i,:) = Ab(i,:) - Ab(i,k)*Ab(k,:); end end end
% 输出解 fprintf('方程组的解为:\n'); for i = 1:size(A,1) fprintf('x%d = %.2f\n', i, Ab(i,end)); end
原文地址: https://www.cveoy.top/t/topic/cKf0 著作权归作者所有。请勿转载和采集!