%《線性代數(shù)實(shí)驗(yàn)踐及MATLAB入門》子程序
% 高撕消元子程序
% 電子工業(yè)出版社出版  陳懷琛 龔杰民合著 2005年10月
function [B]=gauss(A,i,j,q)
%
% ---------------------------------
% function [B]=gauss(A,i,j,q)
% 高斯消元子程序
% A為輸入矩陣，B為輸出矩陣
% i為基準(zhǔn)行的行號(hào)
% j為待變換行的行號(hào)
% q為基準(zhǔn)元素（主元）的列號(hào)，即A(i,q)為主元，A(j,q)為待消元
%
B=A;
B(j,:)=A(j,:)-A(j,q)*A(i,:)/A(i,q);