cpcon.pas

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

{*********************************************}
{                                             }
{    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             }
{                                             }
{*********************************************}

(*{$DEFINE LocalDebug}*)

(*{$DEFINE ADAMS}*)


{$I CPDIR.INC}

unit cpcon;

{*

   3/18/91 Sketch of consensus routines

   4/9/91  Adams added


   5/30/91 Major error in Adams consensus...
   	   Need to rewrite completely!
           Need to reread Adam's paper, my
           algorithm can generate incorrect
           trees.

   6/20/91 Printing of trees and clusters routed
   	   through global Buffer variable in CPWBUF.PAS.

   BM(NH)

   15/8/91 Adams consensus (new algorithm added).
           Code cleaned up.

    9 Oct 1991 Dialog box code added.

   16 Oct 1991 Serious bug in CPPART.PAS caused Adams trees
               to be incorrect in certain situations (especially
               if leaves in clusters weren't a contiguous series.



   27 Jan 1992 Fast strict consensus tree added for use
   	       when only strict is needed.

   12 Mar 1993 UAE caused when user aborted during consensus tree
               calculation. Traced to destructor Done which did not
               check if CT had been allocated prior to trying to
               dispose of it. 

*}


{
   Objects
   -------

   CONSENSUSOBJ