Allelopathy Experiment

breed [ Pot1seeds Pot1seed ]
breed [ Pot2seeds Pot2seed ]
breed [ Pot3seeds Pot3seed ]
breed [ Pot4seeds Pot4seed ]
breed [ seedlings seedling ]

patches-own
[ pot-id  chemical-type ]

turtles-own
[
  growth-rate
  A_tol ;; seed tolerant of soln-A
  B_tol ;; seed tolerant of soln-B
  C_tol ;; seed tolerant of soln-C
  D_tol ;; seed tolerant of soln-D
  P_tol ;; seed tolerant of allelopath
]

globals
[ selected-pot-id selected-seeds selected-soln ]

;; soln-A color 137 (light pink)
;; soln-B color 47 (light yellow)
;; soln-C color 118 (light violet)
;; soln-D color 58 (light green)
;; allelopath color 15 (red)
;; water color 98 (light blue)

;********* PRESSING THE PLACE POTS BUTTON INITIATES SETUP *********

to setup
  clear-all
  setup-pots ; calls the setup-pots procedure
;  setup-seeds
;  load-pots
  reset-ticks
end 

;*************** SETS THE POT POSITION AND COLOR ******************

to setup-pots
  ask patches
  [
    set pcolor 0 ; background is black
  ]

  ;; pot 1 is in the upper left corner and colored white
  ask patches with [ pxcor >= -12 and pxcor < -2 and pycor >= 2 and pycor < 12 ]
  [
    set pcolor white
    set pot-id "pot1"

  ]

  ;; pot 2 is in the upper right corner and colored white
  ask patches with [ pxcor >= 2 and pxcor < 12 and pycor >= 2 and pycor < 12 ]
  [
    set pcolor white
    set pot-id "pot2"
  ]

  ;; pot 3 is in the lower left corner and colored white
  ask patches with [ pxcor >= -12 and pxcor < -2 and pycor >= -12 and pycor < -2 ]
  [
    set pcolor white
    set pot-id "pot3"
  ]

  ;; pot 4 is in the lower right corner and colored white
  ask patches with [ pxcor >= 2 and pxcor < 12 and pycor >= -12 and pycor < -2 ]
  [
    set pcolor white
    set pot-id "pot4"
  ]
end 

;*********** ADD SEEDS TO POTS USING THE SEED CHOOSER AND POT BUTTONS ************

to add-to-pot1
  create-Pot1seeds 10
  ask Pot1seeds
      [
        ifelse Choose-Seeds = "spiny" ; spiny seeds selected
          [
            set xcor (-10 + random-float 6)  ; x-axis scatter from the center of pot
            set ycor (4 + random-float 6) ; y-axis scatter from the center of pot
            set shape "spiny_seed" ; use the spiny seed shape
            set color 55 ; dark green
            set size 2 ; base shape is small so make it bigger
          ]
          [
            ifelse Choose-Seeds = "egg" ; egg-shaped seeds selected
              [
                set xcor (-10 + random-float 6)
                set ycor (4 + random-float 6)
                set shape "egg_seed"
                set color 38 ; pale brown
                set size 1.5
                  ]
                  [
                    ifelse Choose-Seeds = "spindle" ; spindle-shaped seeds selected
                      [
                        set xcor (-10 + random-float 6)
                        set ycor (4 + random-float 6)
                        set shape "spindle_seed"
                        set color 43 ; olive
                        set size 1.5
                      ]
                      [
                        ifelse Choose-Seeds = "wafer" ; flat heart-shaped seeds selected
                          [
                            set xcor (-10 + random-float 6)
                            set ycor (4 + random-float 6)
                            set shape "wafer_seed"
                            set color 6 ; medium grey
                            set size 1.5
                          ]
          ; ***** LAST SEED SHAPE IS LONG SAMARA *****
          [
            set xcor (-10 + random-float 6)
            set ycor (4 + random-float 6)
            set shape "long_samara"
            set color 24 ; dark orange
            set size 1.5
         ]
    ]   ]   ]   ]
end 

to add-to-pot2
  create-Pot2seeds 10
  ask Pot2seeds
      [
        ifelse Choose-Seeds = "spiny" ; SPINY SEEDS SELECTED
          [
            set xcor (4 + random-float 6)
            set ycor (4 + random-float 6)
            set shape "spiny_seed"
            set color 55 ; dark green
            set size 2
          ]
          [
            ifelse Choose-Seeds = "egg" ; EGG SEEDS SELECTED
              [
                set xcor (4 + random-float 6)
                set ycor (4 + random-float 6)
                set shape "egg_seed"
                set color 38 ; pale brown
                set size 1.5
                  ]
                  [
                    ifelse Choose-Seeds = "spindle" ; SPINDLE SEEDS SELECTED
                      [
                        set xcor (4 + random-float 6)
                        set ycor (4 + random-float 6)
                        set shape "spindle_seed"
                        set color 43 ; olive
                        set size 1.5
                      ]
                      [
                        ifelse Choose-Seeds = "wafer" ; WAFER SEEDS SELECTED
                          [
                            set xcor (4 + random-float 6)
                            set ycor (4 + random-float 6)
                            set shape "wafer_seed"
                            set color 6 ; medium grey
                            set size 1.5
                          ]
          ; ***** LAST SEED SHAPE IS LONG SAMARA *****
          [
            set xcor (4 + random-float 6)
            set ycor (4 + random-float 6)
            set shape "long_samara"
            set color 24 ; dark orange
            set size 1.5
         ]
    ]   ]   ]   ]
end 

to add-to-pot3
  create-Pot3seeds 10
  ask Pot3seeds
      [
        ifelse Choose-Seeds = "spiny" ; SPINY SEEDS SELECTED
          [
            set xcor (-10 + random-float 6)
            set ycor (-10 + random-float 6)
            set shape "spiny_seed"
            set color 55 ; dark green
            set size 2
          ]
          [
            ifelse Choose-Seeds = "egg" ; EGG SEEDS SELECTED
              [
                set xcor (-10 + random-float 6)
                set ycor (-10 + random-float 6)
                set shape "egg_seed"
                set color 38 ; pale brown
                set size 1.5
                  ]
                  [
                    ifelse Choose-Seeds = "spindle" ; SPINDLE SEEDS SELECTED
                      [
                        set xcor (-10 + random-float 6)
                        set ycor (-10 + random-float 6)
                        set shape "spindle_seed"
                        set color 43 ; olive
                        set size 1.5
                      ]
                      [
                        ifelse Choose-Seeds = "wafer" ; WAFER SEEDS SELECTED
                          [
                            set xcor (-10 + random-float 6)
                            set ycor (-10 + random-float 6)
                            set shape "wafer_seed"
                            set color 6 ; medium grey
                            set size 1.5
                          ]
          ; ***** LAST SEED SHAPE IS LONG SAMARA *****
          [
            set xcor (-10 + random-float 6)
            set ycor (-10 + random-float 6)
            set shape "long_samara"
            set color 24 ; medium-dark orange
            set size 1.5
         ]
    ]   ]   ]   ]
end 

to add-to-pot4
  create-Pot4seeds 10
  ask Pot4seeds
      [
        ifelse Choose-Seeds = "spiny" ; SPINY SEEDS SELECTED
          [
            set xcor (4 + random-float 6)
            set ycor (-10 + random-float 6)
            set shape "spiny_seed"
            set color 55 ; dark green
            set size 2
          ]
          [
            ifelse Choose-Seeds = "egg" ; EGG SEEDS SELECTED
              [
                set xcor (4 + random-float 6)
                set ycor (-10 + random-float 6)
                set shape "egg_seed"
                set color 38 ; pale brown
                set size 1.5
                  ]
                  [
                    ifelse Choose-Seeds = "spindle" ; SPINDLE SEEDS SELECTED
                      [
                        set xcor (4 + random-float 6)
                        set ycor (-10 + random-float 6)
                        set shape "spindle_seed"
                        set color 43 ; olive
                        set size 1.5
                      ]
                      [
                        ifelse Choose-Seeds = "wafer" ; WAFER SEEDS SELECTED
                          [
                            set xcor (4 + random-float 6)
                            set ycor (-10 + random-float 6)
                            set shape "wafer_seed"
                            set color 6 ; medium grey
                            set size 1.5
                          ]
          ; ***** LAST SEED SHAPE IS LONG SAMARA *****
          [
            set xcor (4 + random-float 6)
            set ycor (-10 + random-float 6)
            set shape "long_samara"
            set color 24 ; medium dark orange
            set size 1.5
         ]
    ]   ]   ]   ]
end 

to treat-pot1
  ask patches with [ pxcor >= -12 and pxcor < -2 and pycor >= 2 and pycor < 12 ]
    [ ifelse Choose-Chemical = "soln-A"
      [set pcolor 139]
       [ ifelse Choose-Chemical = "soln-B"
         [set pcolor 119]
           [ ifelse Choose-Chemical = "soln-C"
             [set pcolor 109]
               [ ifelse Choose-Chemical = "soln-D"
                 [set pcolor 89]
                   [ ifelse Choose-Chemical = "allelopath"
                     [set pcolor 29]
      [set pcolor 9]
  ]]]]]
end 

to treat-pot2
  ask patches with [ pxcor >= 2 and pxcor < 12 and pycor >= 2 and pycor < 12 ]
    [ ifelse Choose-Chemical = "soln-A"
      [set pcolor 139]
       [ ifelse Choose-Chemical = "soln-B"
         [set pcolor 119]
           [ ifelse Choose-Chemical = "soln-C"
             [set pcolor 109]
               [ ifelse Choose-Chemical = "soln-D"
                 [set pcolor 89]
                   [ ifelse Choose-Chemical = "allelopath"
                     [set pcolor 29]
      [set pcolor 9]
  ]]]]]
end 

to treat-pot3
  ask patches with [ pxcor >= -12 and pxcor < -2 and pycor >= -12 and pycor < -2 ]
    [ ifelse Choose-Chemical = "soln-A"
      [set pcolor 139]
       [ ifelse Choose-Chemical = "soln-B"
         [set pcolor 119]
           [ ifelse Choose-Chemical = "soln-C"
             [set pcolor 109]
               [ ifelse Choose-Chemical = "soln-D"
                 [set pcolor 89]
                   [ ifelse Choose-Chemical = "allelopath"
                     [set pcolor 29]
      [set pcolor 9]
  ]]]]]
end 

to treat-pot4
  ask patches with [ pxcor >= 2 and pxcor < 12 and pycor >= -12 and pycor < -2 ]
    [ ifelse Choose-Chemical = "soln-A"
      [set pcolor 139]
       [ ifelse Choose-Chemical = "soln-B"
         [set pcolor 119]
           [ ifelse Choose-Chemical = "soln-C"
             [set pcolor 109]
               [ ifelse Choose-Chemical = "soln-D"
                 [set pcolor 89]
                   [ ifelse Choose-Chemical = "allelopath"
                     [set pcolor 29]
      [set pcolor 9]
  ]]]]]
end 

;*************************** RUN PROCEDURE ******************************
; pots need to be set up with seeds and treatments first
; pressing go initiates germination of seeds based on their chemical sensitivity (_tol)
; solutions B 119 and C 109 are not allelopathic for any of the seeds
; spiny_seeds are tolerant of all solutions and the known allelopath
; spindle_seeds are sensitive to solution A 139 only and allelopath 29
; egg_seeds are sensitive to allelopath 29 only
; wafer_seeds are sensitive to solutions partly to A 139, partly to D 89, and fully to allelopath 29
; long_samara seeds also are sensitive to solutions A 139, D 89, and allelopath 29

to go
  ;***************** APPLIES TO SPINY SEEDS **********************
  ask turtles with [ color = 55 ] ; affects only spiny seeds
    [
      set shape "plant"
      set size 3
      set color 64
    ]

    ; ***************** APPLIES TO EGG SEEDS *********************
    ask turtles with [ color = 38 ] ; affects only egg seeds
    [ ifelse pcolor = 9 ; water
        [
          set shape "plant"
          set color 64
          set size 3
         ]
      [ ifelse pcolor = 119 ; soln_B
        [
          set shape "plant"
          set color 64
          set size 3
        ]
        [ ifelse pcolor = 109 ; soln_C
          [
            set shape "plant"
            set color 64
            set size 3
          ]
          [ ifelse pcolor = 139 ; soln_A
             [
               set shape "plant"
               set color 64
               set size 1.5
             ]
             [  ifelse pcolor = 89 ; soln_D
                [
                  set shape "plant"
                  set color 64
                  set size 3
                ]
    [
      set shape "dot"
      set size 1
      set color 0
  ]  ]  ]  ]  ] ]

   ;********************** APPLIES TO SPINDLE SEEDS ***********************
    ask turtles with [ color = 43 ] ; affects only spindle seeds
    [ ifelse pcolor = 9 ; water
        [
          set shape "plant"
          set color 64
          set size 3
         ]
      [ ifelse pcolor = 119 ; soln_B
        [
          set shape "plant"
          set color 64
          set size 3
        ]
        [ ifelse pcolor = 109 ; soln_C
          [
            set shape "plant"
            set color 64
            set size 3
          ]
          [  ifelse pcolor = 89 ; soln_D
             [
               set shape "plant"
               set color 64
               set size 3
          ]
    [
      set shape "dot"
      set size 1
      set color 0
  ]  ]  ]  ]  ]

   ;********************** APPLIES TO WAFER SEEDS ***********************
  ask turtles with [ color = 6 ] ; affects only wafer seeds
    [ ifelse pcolor = 9 ; water
        [
          set shape "plant"
          set color 64
          set size 3
         ]
      [ ifelse pcolor = 119 ; soln_B
        [
          set shape "plant"
          set color 64
          set size 3
        ]
        [ ifelse pcolor = 109 ; soln_C
          [
            set shape "plant"
            set color 64
            set size 3
          ]
          [ ifelse pcolor = 139 ; soln_A
          [
            set shape "plant"
            set color 35
            set size 1
          ]
          [ ifelse pcolor = 89 ; soln_D
            [
              set shape "plant"
              set color 64
              set size 0.75
            ]
       [
         set shape "plant"
         set size 1
         set color 35
  ]  ]  ]  ] ] ]

  ;********************** APPLIES TO LONG SAMARA SEEDS ***********************
  ask turtles with [ color = 24 ] ; affects only long samara seeds
    [ ifelse pcolor = 9 ; water
        [
          set shape "plant"
          set color 64
          set size 3
         ]
      [ ifelse pcolor = 119 ; soln_B
        [
          set shape "plant"
          set color 64
          set size 3
        ]
        [ ifelse pcolor = 109 ; soln_C
          [
            set shape "plant"
            set color 64
            set size 3
          ]
          [ ifelse pcolor = 89 ; soln_D
          [
            set shape "plant"
            set color 35
            set size 1
          ]
          [
             set shape "dot"
             set size 1
             set color 0
  ]  ]  ]  ] ]
end