DataMuseum.dk

algol<
begin
_____
integer i,j,l,m,n,p,r;
_______
real sum 1;
____
select(19);writecr;
m:=read integer; n:=read integer;r:=read integer; p:=n⨯(n-1)/2;
begin
_____
integer array A[1:m,1:n]; real array B[1:r,1:p];
_______ _____             ____ _____
 procedure spearman(m,n,r,MATRIX,RHOMATRIX);
 _________
  value m,n,r;
  _____
  integer m,n,r;
  _______
  integer 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);
                               |
    write(|__d.ddd|,RHOMATRIX[r,p]);
          <,,     >
     if (p_5)⨯5-p=0 then writecr;
     __   :         ____
     end
     ___
    end
    ___
   end procedure spearman;
   ___
sum 1:=0;
for l:=1 step 1 until r do
___      ____   _____   __
 begin
 _____
 for i:=1 step 1 until m do
 ___      ____   _____   __
  begin
  _____
  for j:=1 step 1 until n do
  ___      ____   _____   __
  A[i,j]:=read real;
  end;
  ___
 spearman(m,n,l,A,B);writecr;
 for j:=1 step 1 until p do
 ___      ____   _____   __
 sum 1:=sum 1+B[l,j]∧2;
                    |
 end;
 ___
writetext(|<intensity score =|);write(|__dddd.dd|,100⨯sum 1);writecr;
          <                  >        <,,       >
end
___
end;t<8
___