列主元高斯消去法程序，调用函数

function [x]=Guasssolvingprogram（ab）  %%高斯列主元消去法
  n=length（a）;          
  x=zeros（n1）;
  a=[a b‘];%%将a，b向量合为一个矩阵
  
  %%选主元，并交换行过程
  for k=1:n-1      
      max=k;
      for i=k:n
        if a（ik）>a（maxk）
           max=i;
        end
      end
      tp=a（kk:n+1）;  
      a（kk:n+1）=a（maxk:n+1）;
      a（maxk:n+1）=tp;
      %%按消去法基本原则进