proc rang (matrix M)
"USAGE:      rang(M); matrix M
RETURN:      int, Rang der Matrix M
KEYWORDS:    Rang, Gauss-Elimination
EXAMPLE:     example rang;   zeigt ein Beispiel"
{
  int RANG=0;
  matrix nullzeile[1][ncols(M)]=0;
  M=ZSF(M);
  for (int i=1;i<=nrows(M);i++)
  { 
    if(M[i,1..ncols(M)]!=nullzeile[1,1..ncols(M)]) 
    { 
      RANG=RANG+1; 
    } 
  }
  return(RANG);
}
example
{
  "Beispiel:";
  echo=2;
  matrix A[2][3]=1,2,3,4,5,6;
  print(rang(A));
  matrix B[3][2]=1,2,3,4,4,6;
  print(rang(B));
}