cpclique.pas

来自「生物信息学中的遗传数据分析的delphi源码。」· PAS 代码 · 共 51 行

{$I CPDIR.INC}


{*
   Compatibility matrix

   2/13/91
*}

{*
   Need error checking:

   1. Too many clusters
   2. No room for work file

   Need to format matrix so that it
   doesn't exceed paper margins.
*}


unit cpclique;

interface

uses
   cpwbuf,   { line buffer }
   cpbits,   { bit masks }
   cpset,    { CLUSTEROBJ }
   cphset;   { HASH_TABLEOBJ }

const
   MAX_CLUSTERS = 240;
   MAX_COLS     = (MAX_CLUSTERS div BITS) - 1;

type
   {
      The compatibility matrix is implemented as an array of bit vectors,
      so that the matrix


          11001
          11011
          00111
          01111
          11111

      is stored as:


                          0          1            MAX_COLS
                    谀哪哪哪哪穆哪哪哪哪哪