cptable.pas

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

{*********************************************}
{                                             }
{    COMPONENT for MS DOS and MS WINDOWS      }
{                                             }
{    Source code for Turbo Pascal 6.0 and     }
{    Turbo Pasacal for Windows 1.0 compilers. }
{                                             }
{    (c) 1991, Roderic D. M. Page             }
{                                             }
{*********************************************}

{$I CPDIR.INC}

unit cptable;

{$DEFINE debug}

{
   3/4/91

   Sketched out

   Assumes that there is a consistent labeling between trees.

   3/29/91  Debugged

	27 Jan 1992 Code for strict consensus tree added.


	 8 Jun 1993 Extra code for islands of trees added.

}

interface

uses
	cpvars,    { global variables }
	cpwbuf,
   cpset,     { cluster }
   cptree;    { n-tree }

type

   { CLUSTERTABLEOBJ

           LLeaf   RLeaf   LCode   DCode   Flag
         谀哪哪哪履哪哪哪履哪哪哪履哪哪哪履哪哪哪