cpvars.pas

生物信息学中的遗传数据分析的delphi源码。

{*******************************************************************
*                                                                  *
*  COMPONENT for MS DOS and Windows source code.                   *
*                                                                  *
*  (c) 1992, Roderic D. M. Page                                    *
*                                                                  *
*  Language: Turbo Pascal (Pascal with object-oriented extensions) *
*  Compiler: Turbo Pascal 6.0 (MS DOS)                             *
*            Turbo Pascal for Windows 1.0 (WINDOWS)                *
*                                                                  *
*  Notes:    Program interface is currently Windows specific.      *
*                                                                  *
*******************************************************************}


{$I CPDIR.INC}

unit cpvars;

{ Global variables }

interface

const
   MAXLEAVES = 100; { Maximum number of leaves in a tree }
   MAXNODES  = 2 * MAXLEAVES - 1;{ Maximum number of node in a tree }

   HBAR      =#196;   { 196 }
   TEE       =#180;   { 180 }
   VBAR      =#179;   { 179 }
   BOT       =#192;   { 192 }
   SIB       =#195;   { 195 }
   RT        =#218;   { 218 }
   DOT       =#249;   { 249 }
   DOWN      =#194;   { 194 }
   D_HBAR    =#205;   { 205 }
   D_RT      =#201;   { 201 }
   D_TEE     =#185;   { 185 }
   D_VBAR    =#186;   { 186 }
   D_SIB     =#204;   { 204 }
   D_BOT     =#200;   { 200 }
   D_DOWN    =#203;   { 203 }
   EXTINCT   = '+';   {  43 }
   DUPLICATE =#219;   { 219 }
   OVERLAP   =#177;   { 177 }

   frmt_UNRECOGNIZED         = $0000;
   frmt_TRANSLATE            = $0001;
   frmt_DEFAULT              = $0002;
   frmt_NEXUS                = $0004;
   frmt_HENNIG86             = $0008;
   frmt_PHYLIP               = $0010;
   frmt_FREQPARS             = $0020;
   frmt_PAUP_241             = $0040;
   frmt_NEXUS_TABLE          = frmt_NEXUS or frmt_TRANSLATE;
   frmt_COMPONENT            = $0080;
   frmt_CONTREE              = $0100;
   frmt_STANDARD             = $0200;

   tc_Partitions = $01;
   tc_Triplets   = $02;
   tc_Quartets   = $04;
   tc_NNI        = $08;
   tc_Subtree    = $10;
   tc_tq         = tc_Triplets or tc_Quartets;

   ctNONE     = $0000;
   ctSTRICT   = $0001;
   ctMAJRULE  = $0002;
   ctSEMI     = $0004;
   ctNELSON   = $0008;
   ctADAMS    = $0010;
   ctCLIQUE   = ctSEMI   or ctNELSON;
   ctMLTREE   = ctSTRICT or ctMAJRULE or ctSEMI or ctNELSON;
   ctALLTREES = ctMLTREE or ctADAMS;


   PARTITION = $0001;                       { Partition metric }
   Q_T   = $0002;                           { triplets }
   Q_Q   = $0004;                           { quartets }
   Q_SD  = $0008;                           { symmetric difference }
   Q_DC  = $0010;                           { do not conflict }
   Q_EA  = $0020;                           { explicity agree }
   Q_d   = $0040;
   Q_s   = $0080;
   Q_r1  = $0100;
   Q_r2  = $0200;
   Q_All = $0400;                           { all measures }
   Q_SJA = $0800;
   Q_TQ  = Q_T or Q_Q;                      { both triplets and quartets }
   Q_REAL = Q_SD or Q_DC or Q_EA or Q_SJA;  { any real valued distance }

   flg_DRA = $1000;
   flg_DRS = $2000;
   flg_DRU = $4000;
   flg_NNI = flg_DRA or flg_DRS or flg_DRU; { any nni measure }

   flg_Subtree = $8000;


type
   METRICS = (PARTITIONS, TRIPLETS, QUARTETS, NNI, SUBTREE);
      {Kinds of tree comparison metrics }


implementation
end.