MACRO
kendall n c m
# Dieses Makro berechnet zu einer Spalte c = (nx1) die 
# Matrix m = (nxn) mit den Elementen;
#   c_ij = +1 falls x_i < x_j
#   c_ij = -1 falls x_i > x_j
#   c_ij = 0  falls x_i = x_j
#
MCONSTANT n i j
MCOLUMN   c d.1-d.n
MMATRIX   m
Define 0 n n m
copy m d.1-d.n
do j = 1 : n
  do i = j : n
    let d.i(j)=sign(c(i)-c(j))
  enddo
enddo
copy d.1-d.n m
ENDMACRO