;;; There are a set of toggling parameters that turn on or off aspects
;;; of the model.

(in-package 'USER)

;--------------------The Hypotheses---------------------------


(defparameter *endemnicity* ()) ; #5 The environment's endemnicity
			       ; (locality) increases over time, both
			       ; topological (barriers) and climate
			       ; (food resources).

(defparameter *fragmentation* ()) ; #6 The environment becomes
				 ; increasingly fragmented over time, both
				 ; topological (barriers) and climate
			         ; (food resources), though not
				 ; necessarily more endemnic.

(defparameter *fluctuating-env* ()) ; #7 Continuous change in physical
				   ; environment, both
				   ; topological (barriers) and climate
			           ; (food resources), though not
				   ; necessarily more fragmented.

(defparameter *species-radius* 1) ; #8a. The hamming distance definition of
				  ; "species" in the model.  An
				  ; organism cannot mate with another
				  ; organism that differs in more than
				  ; this number of bits.  This
				  ; simulates a genetic reduction in
				  ; gene flow.  This is turned "off"
				  ; by setting it to (* 2 GENESIZE)

(defparameter *dispersal* 3) ; #8b The maximum distance an offspring may
			     ; disperse from its parent.  This
			     ; simulates a behavioral (migration)
			     ; reduction in gene flow.

(defparameter *increasing-adaptive-space* ()) ; #10 Adaptive space
					     ; increases when bits are
					     ; allowed to flip in the
					     ; upper half of the prey
					     ; and generalism genes.

(defparameter *niche-subdivision* ()) ; #11 Niches are subdivided by
				     ; species evolving higher levels
				     ; of specialization.  This is
				     ; prevented by preventing bits in
				     ; the lower portion (1/4?)
				     ; of the generalism gene
				     ; from becoming 0's.

;----------------------Further Toggles---------------------------

(defparameter *specialist-advantage* t)


;---------------Other Parameters------------------------------------

(defparameter *mutation-rate* 0.001) ; Chance of a bit flipping in an
				     ; organism in one generation. (at
				     ; reproduction) 

(defparameter *num-autotrophs* 20) ; Number of different autotrophs in
				   ; the model.

(defparameter *num-colonies* 5) ; Number of patches of the same
				; autotroph.

    ; The maximum number of autotrophs (randomly determined) which are
    ; placed into an environment location at a single planting.
    ; Together with *num-colonies* these should tend to max out the
    ; MAX-FOOD-CAPACITY.  To have a smoother effect of the seasons
    ; this should be small, but then patches are likely to overlap.
(defparameter *patch-quantity* (round (/ MAX-FOOD-CAPACITY
				       (/ *num-autotrophs* 4))))