DataMuseum.dk

algol<
begin
_____
integer sum 2,i,j,l,m,n,ptnr,p,r;real sum 1;
____ __                          ____
select(19);writecr;
m:=read integer; n:=read integer;r:=read integer;
p:=n⨯(n-1)/2;
begin
_____
real array A[1:m,1:n]; real array B[1:r,1:p];
____ _____             ____ _____
real array C[1:p,1:r];
____ _____
procedure spearman(m,n,r,MATRIX,RHOMATRIX);
_________
  value m,n,r;
  _____
  integer m,n,r;
  _______
  real array MATRIX; real array RHOMATRIX;
  ____ _____         ____ _____
   begin
   _____
   integer i,j,k,p;
   _______
   real sum;
   ____
   p:=0;
   for j:=1 step 1 until n-1 do
   ___      ____   _____     __
    begin
    _____
    for k:=j+1 step 1 until n do
    ___        ____   _____   __
     begin
     _____
     sum:=0;p:=p+1;
     for i:=1 step 1 until m do
     ___      ____   _____   __
      begin
      _____
      sum:=sum+(MATRIX[i,j]-MATRIX[i,k])∧2;
                                        |
      end;
      ___
     RHOMATRIX[r,p]:=1-6⨯sum/(m∧3-m);
                               |
     end
     ___
    end
    ___
   end procedure spearman;
   ___
  procedure rangordning(m,n,MATRIX,RANGMATRIX);
  _________
  value m,n;
  _____
  integer m,n;
  _______
  real array MATRIX;real array RANGMATRIX;
  ____ _____        ____ _____
   begin
   _____
   integer i,j,k,sum a,sum b;
   _______
   for i:=1 step 1 until m do
   ___      ____   _____   __
     begin
     _____
     for j:=1 step 1 until n do
     ___      ____   _____   __
      begin
      _____
      sum a:=0;sum b:=-1;
      for k:=1 step 1 until n do
      ___      ____   _____   __
       begin
       _____
       if MATRIX[i,j]<MATRIX[i,k] then sum a:=sum a+1;
       __                         ____
       if MATRIX[i,j]=MATRIX[i,k] then sum b:=sum b+1;
       __                         ____
       end;
       ___
      RANGMATRIX[j,i]:=(2⨯(n-sum a)-sum b)/2;
      end;
      ___
     end
     ___
    end procedure rangordning;
    ___