proc zeilenaddition (matrix M, int k, int l, poly z)
"USAGE:      zeilenaddition(M,k,l); matrix M, int k, int l, poly z
RETURN:      matrix, das z-fache der k-ten Zeile von M wurde zur l-ten addiert
KEYWORDS:    Gauss algorithm
EXAMPLE:     example zeilenaddition;   zeigt ein Beispiel"
{
  if ((k>=1) and (k<=nrows(M)) and (l>=1) and (l<=nrows(M)))
  {
    for (int i=1;i<=ncols(M);i++)
    {
      M[l,i]=M[l,i]+z*M[k,i];
    }
    return(M);
  }
}
example
{
  "Beispiel:";
  echo = 2;
  ring r=0,x,lp;
  matrix M[3][4]=1,2,3,4,5,6,7,8,9,0,1,2;
  pmat(M);
  matrix N=zeilenaddition(M,1,2);
  pmat(N);
}