;;; The Constants for the tree model:
(in-package 'USER)

(defconstant GENESIZE 29) ;(logcount most-positive-fixnum)) ; Number of
						       ; bits in a
						       ; gene. 
(defconstant NUMGENES 3) ; Number of bitpattern genes in an organism
			 ; structure. 


(defconstant GENOMESIZE (* NUMGENES GENESIZE))
(defconstant PROBSCALE 100000)   ; The integer scale for random probabilities.
(defconstant DEFAULTMAXDIV 1024) ; default for the maximum diversity level.
(defconstant DEFAULTPARAPROB (/ PROBSCALE 10)) ; default for paraphyly
					; taxa probability
(defconstant DEFAULTSAMPLE (/ PROBSCALE 20)) ; default for the chance
					; of sampling a lineage in a stratum.
(defconstant DEFAULTK 0.05) ; default for the paraphyly k parameter.