cpenc.pas

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

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

{*

  Quartets and triplets

  4/2/91  Written

  9/8/91  Code cleaned up.

  12/8/91 Bug found in TCODE.EncodeTree(). A while loop
          control statement required a check for
          pointer=NIL, otherwise got an Unrecoverable
          Application Error.


  Much of the code here comes from:

  Doucette, C. R. 1985. An efficient algorithm to
     compute quartet dissimilaity measures. Unpubl.
     BSc(Hons) dissertation, Dept. Computer Science,
     Memorial University of Newfoundland.



   Objects
   =======

   ECODE