---precisionranching2.nlogo

NETLOGO

to Rotate1 ; move species to next paddock
  if mixed? = false 
  [
  ask bison [set ycor (- ycor)]
  ask deer [set ycor ( - ycor)]
  ask elk [set ycor (- ycor)]
  ask patches with [paddock? = 1] [set elk? true set deer? false set bison? false]
  ask patches with [paddock? = 2] [set elk? true set deer? false set bison? false]
  ask patches with [paddock? = 3] [set deer? true set elk? false set bison? false]
  ask patches with [paddock? = 4] [set bison? true set deer? false set elk? false]
  ]
end

to Rotate2 ; move for last sequence
  if mixed? = false 
  [
  ask bison [set ycor (- ycor) set xcor (- xcor)]
  ask deer [set ycor (- ycor) set xcor (- xcor)]
  ask elk [set ycor (- ycor)]
  ask patches with [paddock? = 1] [set bison? true set deer? false set elk? false]
  ask patches with [paddock? = 2] [set deer? true set elk? false set bison? false]
  ask patches with [paddock? = 3] [set elk? true set deer? false set bison? false]
  ask patches with [paddock? = 4] [set elk? true set deer? false set bison? false]
  ]
end
@#$#@#$#@
GRAPHICS-WINDOW
516
10
892
408
20
20
8.93
1
9
1
1
1

CC-WINDOW
664
655
917
791
Command Center

SLIDER
530
460
659
493
bison-num
bison-num
0
9
3
1
1
NIL

SLIDER
664
462
787
495
elk-num
elk-num
0
9
3
1
1
NIL

SLIDER
794
462
911
495
deer-num
deer-num
0
9
3
1
1
NIL

BUTTON
842
419
897
452
go
go\ngraph-it\nif systime = introdate [stop]\nif systime = introdate + rotation [stop]\nif systime = introdate + 2 * rotation  [stop]\nif systime = introdate + 3 * rotation [stop]
T
1
T
OBSERVER
NIL

BUTTON
760
419
840
452
Set-up
setup
NIL
1
T
OBSERVER
T

PLOT
19
30
422
290
Animal performance
Day
Weight kg
-30.0
45.0
0.0
410.0
true
true
PENS
"bison" 1.0 0 -16777216 true
"elk" 1.0 0 -256 true
"deer" 1.0 0 -65536 true
"cattle" 1.0 0 -16711738 true

SLIDER
529
499
659
532
Kgrass
Kgrass
5
30
13
1
1
NIL

BUTTON
612
417
685
450
Water
patch-draw
T
1
T
OBSERVER
NIL

TEXTBOX
544
662
642
692
Kg/100^2 (0.01 ha)

PLOT
20
298
421
537
Vegetation
Day
kg/0.01 ha
0.0
75.0
0.0
15.0
true
false
PENS
"grass" 1.0 0 -11352576 true
"forbs" 1.0 0 -44544 true
"browse" 1.0 0 -16776961 true
"litter" 1.0 0 -6524078 true

SLIDER
663
500
788
533
Kforbs
Kforbs
0
10
3
1
1
NIL

SLIDER
791
500
911
533
Kbrowse
Kbrowse
0
5
2
1
1
NIL

BUTTON
530
417
607
450
Destock
ask turtles [die]
NIL
1
T
OBSERVER
T

SWITCH
531
539
660
572
Mixed?
Mixed?
0
1
-1000

MONITOR
441
157
499
206
TA
TA
0
1

MONITOR
439
47
497
96
Day
systime
3
1

MONITOR
442
102
495
151
Month
month
0
1

PLOT
22
550
419
793
Paddocks
Day
Vegetation (kg/0.01 ha)
0.0
75.0
0.0
15.0
true
false
PENS
"Paddock1" 1.0 0 -16777216 true
"Paddock2" 1.0 0 -8716033 true
"Paddock3" 1.0 0 -65536 true
"Paddock4" 1.0 0 -11352576 true

SLIDER
791
540
912
573
cattle-num
cattle-num
0
10
4
1
1
NIL

TEXTBOX
275
573
387
633
Paddock1 - Black\nPaddock2 - Violet\nPaddock3 - Red\nPaddock4 - Green

MONITOR
440
211
497
260
Bison
count bison
0
1

MONITOR
440
263
497
312
elk
count elk
0
1

MONITOR
440
314
497
363
Deer
count deer
0
1

MONITOR
440
365
497
414
Cattle
count cattle
0
1

TEXTBOX
296
324
386
399
Grass - green\nDry - brown\nForbs - red\nBrowse - blue

TEXTBOX
49
255
361
273
       May                                    Jun                                       Jul

SLIDER
666