home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / MAPSTATF.LBR / GETCOR.LZB / GETCOR.ÌIB
Text File  |  2000-06-30  |  1KB  |  44 lines
  1. Procedure getcor(Var cor:NBYN; Var mean, stdev:RVEC; Var varn:S8;
  2.       Var nc:Real; sel:IVEC; nv, dv:Integer; Var dfile:Text);
  3. Var
  4.   i,j,k,l:Integer;
  5.   x,y,z:Real;
  6.   dum36:String[36];
  7.   dum21:String[21];
  8.   dum15:String[15];
  9.   name,dum8:String[8];
  10.   dum7:String[7];
  11. Begin
  12.   Readln(dfile); Readln(dfile);
  13.   nc:=1E+37;
  14.   For i := 1 To nv Do
  15.     Begin
  16.     Readln(dfile,name,dum7,x,dum21,y,dum8,z);
  17.     For j := 1 To dv Do
  18.       Begin
  19.       If (sel[j]=i) Then
  20.         Begin
  21.         If (nc>z) Then nc:=z;
  22.         varn[j] := name; mean[j] := x; stdev[j] := y;
  23.         End;
  24.       End;
  25.     End;
  26.     For i :=1 to 3 Do Readln(dfile);
  27.     For i := 1 To nv-1 Do
  28.       For k := i+1 To nv Do
  29.         Begin
  30.         Readln(dfile,dum36,x,dum15,y);
  31.         For j := 1 To dv Do
  32.           Begin
  33.           cor[j,j] := 1.0;
  34.           If (sel[j]=i) Then
  35.             For l := 1 To dv Do
  36.               If (sel[l]=k) Then
  37.               Begin
  38.               cor[j,l] := y; cor[l,j] := y;
  39.               End;
  40.           End;
  41.         End;
  42.   End; (* Of getcor *)
  43. EC; Var varn:S8;
  44.       Var nc:Real; sel:IVEC; nv, dv:Integer; Var dfile:Text);