---model7-grafiek.nlogo

NETLOGO

to count-food
;count neighbouring patches with the food the turtle knows about
;count this seperately for talkers and seperately for silents
end
;;;;;;;;;;;;;;;THE PLOTTING PART;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


to setup-plot
  set-current-plot "knowledge"
  set-plot-x-range 0 no-things
  set-histogram-num-bars no-things
  set-current-plot "t-s-knowhow"
  set-plot-x-range 0 no-things
  set-histogram-num-bars no-things
end

to update-plot
;update-plot-a-f
update-plot-all
;update-knowledge
;update-t-s-knowhow
;update-type-of-food
end

to update-plot-a-f
set-current-plot "plot-a-f"
set-current-plot-pen "line"
plotxy (count patches with [ sum here-list = 1]) (count turtles)
end

to update-plot-all
locals [c]
;locals [c r]
set-current-plot "plot-all"
set-current-plot-pen "turtles"
plot count turtles 
set-current-plot-pen "credit"
plot (count patches with [sum here-list = 1 ])
;plot 0.1 * (count patches with [(first here-list) = 1 ])
;set-current-plot-pen "spec-credit"
;plot 0.2 * (count patches with [ sum (butfirst here-list) = 1]) 
;if (count silent > 10 ) 
;[set-current-plot-pen "ratio t/s" 
; plot 10 * ((count talker) / (count silent))]
;  [ set r ((count talker) / (count silent))
;    set-current-plot-pen "ratio t/s"
;    ifelse (r < 10) [ppd] [ppu]   ;;; dont plot if too high
;    plot 10 * r
;   ]
;set-current-plot-pen "en-talkers"
;if (count talker != 0) [ plot mean values-from talker [energy]]
;set-current-plot-pen "en-silent"
;if (count silent != 0) [ plot mean values-from silent [energy]]
;set-current-plot-pen "know"
;if (count turtles != 0) [ plot ((sum values-from turtles [sum knowhow]) / (count turtles)) * 10 ]
;set-current-plot-pen "born"
;plot born
;set-current-plot-pen "died"
;plot died
end


; update the barchart
to update-knowledge
locals [l]
set l (sum-list (values-from turtles [knowhow])) 
set l (map [ ( ? / (count turtles)) * 100] l)
; choose the plot
set-current-plot "knowledge"
; set the height of the plot
;set-plot-y-range 0 (max l)
; set the width of the plot (will change)
set-plot-x-range 0 no
; make sure the "default" pen is selected
set-current-plot-pen "default"
; reset the plot pen (so plotting starts from the left)
plot-pen-reset
; make sure it's a bar plot
set-plot-pen-mode 1
; add bars to the plot
foreach (n-values (length l) [ ? ] )
[ ; ?1 is index
plot ( item ?1 l )
]
end 


;;suggestion from netlogo users group:
;;set things-sum
;;map
;;[ sum values-from turtles [ item ? things ] ]
;;( n-values things-length [ ? ] )


;;give me the number of turtles that know x things:
;;or should there be an initial know-list? as extra turtle-own var?
;;or should every turtle that knows something from birth just know one thing?
;;so the chance is 1/6th * chance per item. First roll dice for slot, then for item
;;

;;plots the no of turtles that know 1 thing
;;to know-hist
;;set-current-plot "know" 
;;set-plot-y-range 0 count turtles
;;histogram-list (values-from turtles [sum knowhow]) 
;;end


to-report energy-talkers
report mean (values-from talker [energy])
end

to-report energy-silent
report mean (values-from silent [energy])
end

;plots number of turtles knowing 1-2-3 etc things, for each breed
to update-t-s-knowhow
locals [s t]
set-current-plot "t-s-knowhow"
set-current-plot-pen "silent"
set-plot-pen-mode 1
histogram-from silent [add-up knowhow]
set-current-plot-pen "talker"
set-plot-pen-mode 1
histogram-from talker [add-up knowhow]
end

;plots number of turtles knowing 1-2-3 etc things, for each breed
to update-type-of-food
set-current-plot "type-of-food"
;if (any? silent)  [ 
  ; set-current-plot-pen "silent-regular"
    ;set-plot-pen-mode 1
    ;plot silent-reg / ((count silent) / 100)
    ;set-current-plot-pen "silent-special"
    ;set-plot-pen-mode 1
    ;plot silent-spec / ((count silent) / 100) ]
;if (any? talker)  [ 
    ;set-current-plot-pen "talker-regular"
    ;set-plot-pen-mode 1
    ;plot talker-reg / ((count talker) / 100)
   ; set-current-plot-pen "talker-special"
    ;set-plot-pen-mode 1
   ; plot talker-spec / ((count talker) / 100) ]
end

          
          
          

@#$#@#$#@
GRAPHICS-WINDOW
321
10
1139
849
50
50
8.0
1
10
0
0
0
0

CC-WINDOW
5
956
1148
1051
Command Center

BUTTON
221
10
311
67
setup
setup
NIL
1
T
OBSERVER
T
NIL

PLOT
528
792
728
942
knowledge
NIL
NIL
0.0
100.0
0.0
100.0
true
false
PENS
"default" 1.0 1 -16777216 false

BUTTON
221
158
310
220
go
go
T
1
T
OBSERVER
T
NIL

PLOT
1
394
497
676
plot-all
NIL
NIL
0.0
100.0
0.0
100.0
true
true
PENS
"turtles" 1.0 0 -16776961 true
"reg-credit" 1.0 0 -65536 true
"en-talkers" 1.0 0 -16711681 true
"en-silent" 1.0 0 -65281 true
"know" 1.0 0 -11352576 true
"born" 1.0 0 -65413 true
"died" 1.0 0 -16777216 true
"spec-credit" 1.0 0 -44544 true
"ratio t/s" 1.0 0 -7566196 true
"credit" 1.0 0 -16711936 true

MONITOR
2
340
117
389
ratio talker/silent
(count talker)/(count silent)
3
1

MONITOR
135
340
213
389
turtles
count turtles
0
1

BUTTON
15
298
104
331
close file
file-close
NIL
1
T
OBSERVER
T
NIL

BUTTON
71
134
168
168
flip
flip-color
NIL
1
T
OBSERVER
T
NIL

BUTTON
71
181
167
214
color off
color-off
NIL
1
T
TURTLE
T
NIL

BUTTON
221
83
311
138
go 1x
go
NIL
1
T
OBSERVER
T
NIL

PLOT
746
789
946
939
t-s-knowhow
no things
%
0.0
10.0
0.0
100.0
true
true
PENS
"silent" 1.0 1 -16776961 true
"talker" 1.0 1 -65281 true

BUTTON
17
256
131
289
NIL
show-values
NIL
1
T
OBSERVER
T
NIL

PLOT
516
558
916
764
type-of-food
NIL
NIL
0.0
30.0
0.0
100.0
true
true
PENS
"silent-regular" 1.0 2 -65536 true
"silent-special" 1.0 2 -65413 true
"talker-regular" 1.0 2 -16776961 true
"talker-special" 1.0 2 -16711681 true

TEXTBOX
17
685
197
716
special food * 0.2\nregular food * 01

BUTTON
107
300
211
333
add silents
get-silents
NIL
1
T
OBSERVER
T
NIL

CHOOSER