home *** CD-ROM | disk | FTP | other *** search
/ ftp.uv.es / 2014.11.ftp.uv.es.tar / ftp.uv.es / pub / biologia / distanc_.exe / UNITDIST.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-04  |  851b  |  22 lines
  1. UNIT Unitdist;
  2. INTERFACE
  3. CONST NumMaxSp=    20;
  4.       NumMinSp=     2;
  5.       LengthNamSp= 10;
  6. TYPE  tnamesp = string [LengthNamSp];
  7. VAR
  8. lengthorig                  : array [1..NumMaxSp] of integer;
  9. lengthcom                   : array [1..NumMaxSp, 1..NumMaxSp] of integer;
  10. MAA, MGG, MCC, MTT,
  11. MAG, MAT, MAC, MCT,
  12. MGT, MCG, M_A, M_G,
  13. M_T, M_C, M__               : array [1..NumMaxSp, 1..NumMaxSp] of integer;
  14. DistanceMatrix              : array [1..NumMaxSp, 1..NumMaxSp] of real;
  15. VarianceMatrix              : array [1..NumMaxSp, 1..NumMaxSp] of real;
  16. SynMatrix, NonSynMatrix     : array [1..NumMaxSp, 1..NumMaxSp] of real;
  17. AverSitSyn, AverSitNonSyn   : array [1..NumMaxSp] of real;
  18. vNamSp                      : array [1..NumMaxSp] of tnameSp;
  19. codontable                  : array [1..21, 1..8, 1..3] of char;
  20. IMPLEMENTATION
  21. END.
  22.