This page was automatically generated by NetLogo 5.0.5.
The applet requires Java 5 or higher. Java must be enabled in your browser settings. Mac users must have Mac OS X 10.4 or higher. Windows and Linux users may obtain the latest Java from Oracle's Java site.
In order for this to work, this file, your model file (MOVIE_13._Christmas_Cycles.nlogo), and the files NetLogoLite.jar and NetLogoLite.jar.pack.gz must all be in the same directory. (You can copy NetLogoLite.jar and NetLogoLite.jar.pack.gz from the directory where you installed NetLogo.)
On some systems, you can test the applet locally on your computer before uploading it to a web server. It doesn't work on all systems, though, so if it doesn't work from your hard drive, please try uploading it to a web server.
You don't need to include everything in this file in your page. If you want, you can just take the HTML code beginning with <applet> and ending with </applet>, and paste it into any HTML file you want. It's even OK to put multiple <applet> tags on a single page.
If the NetLogoLite files and your model are in different directories, you must modify the archive= and value= lines in the HTML code to point to their actual locations. (For example, if you have multiple applets in different directories on the same web server, you may want to put a single copy of the NetLogoLite files in one central place and change the archive= lines of all the HTML files to point to that one central copy. This will save disk space for you and download time for your users.)
powered by NetLogo
view/download model file: MOVIE_13._Christmas_Cycles.nlogo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AGENT_ZERO
;; MOVIE 13 Code. Version 1.0
;; Christmas Cycles
;; (Seasonal Demand Oscillations)
;;
;; Joshua M. Epstein
;; November 2012
;; Sliders [300, 0.1, 4, 1, 1] Seed 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
to use-new-seed
let my-seed new-seed
output-print word "Generated seed: " my-seed
random-seed my-seed
end
to use-seed-from-user
let my-seed read-from-string user-input "Enter a random seed (an integer):"
output-print word "User-entered seed: " my-seed
random-seed my-seed
end
directed-link-breed [red-links red-link]
links-own [weight]
turtles-own [
affect
learning_rate
lambda
delta
threshold
event_count
disposition
probability
memory
]
to setup-links
ask turtle 0 [ create-red-link-to turtle 1]
ask red-link 0 1 [
set color red
set weight 0.3
]
ask turtle 0 [ create-red-link-to turtle 2]
ask red-link 0 2 [
set color red
set weight 0.3]
ask turtle 1 [ create-red-link-to turtle 0]
ask red-link 1 0 [
set color red
set weight 0.3]
ask turtle 1 [ create-red-link-to turtle 2]
ask red-link 1 2 [
set color red
set weight 0.3]
ask turtle 2 [ create-red-link-to turtle 0]
ask red-link 2 0 [
set color red
set weight 0.3]
ask turtle 2 [ create-red-link-to turtle 1]
ask red-link 2 1 [
set color red
set weight 0.3]
end
to setup
__clear-all-and-reset-ticks
;use-new-seed
use-seed-from-user
setup-patches
setup-turtles
setup-links
setup-MyLai
;movie-start "out.mov" ;Movie Code. Uncomment to make movie
;movie-grab-view ;Show initial state
;repeat 1000
; [ go
; movie-grab-view ]
; movie-close
tick
end
to setup-turtles
set-default-shape turtles "person"
create-turtles 3
ask turtle 0 [
setxy 4 9
set color blue
set affect 0.001
set delta 0
set lambda 1
set learning_rate .1
set threshold 1.0
set event_count 0
set disposition 0
set probability 0
set memory []
repeat memory_length
[set memory lput random-float 0 memory]
;set memory [0]
;set memory [0 0 0 0]
;set label who
]
ask turtle 1 [
setxy 5 2 ;random-xcor random-ycor
set color blue
set affect 0.001
set delta 0
set lambda 1
set learning_rate .1
set threshold .85
set event_count 0
set disposition 0
set probability 0
;set memory [ 1 3 5 7 8]
set memory []
repeat memory_length
[set memory lput random-float 0 memory]
;show memory
; set label who
]
ask turtle 2 [
setxy 11 12 ;random-xcor random-ycor
set color blue
set affect 0.001
set delta 0
set lambda 1
set learning_rate .1
set threshold .8
set event_count 0
set disposition 0
set probability 0
set memory []
repeat memory_length
[set memory lput random-float 0 memory]
;set memory [0 0]
;set label who
]
end
to setup-patches
ask patches [set pcolor yellow + random 2]
end
to go
if ticks >= 50000 [stop]
move-turtles
activate-patches
;update-event_count
update-affect
update-probability
update-disposition
take-action
deactivate-patches
quit-shopping
do-plots1
do-plots2
do-plots3
tick
end
to update-event_count
ask turtles[
if pcolor = orange + 1 [set event_count event_count + 1]
]
end
to update-affect
ask turtles [
if pcolor = orange + 1
[set affect affect + (learning_rate * (affect ^ delta) * (lambda - affect))]
if pcolor != orange + 1
[set affect affect + (learning_rate * (affect ^ delta) * extinction_rate *(0 - affect))]
]
end
to update-probability
ask turtles[
let current_probability (count patches in-radius vision with [pcolor = orange + 1]/(count patches in-radius vision))
set memory but-first memory
set memory lput current_probability memory
set probability mean memory
;set probability median memory
]
end
to update-disposition
ask turtle 0 [
set disposition affect + probability + [weight] of red-link 1 0 * ([affect] of turtle 1 + [probability] of turtle 1) +
[weight] of red-link 2 0 * ([affect] of turtle 2 + [probability] of turtle 2) - threshold]
ask turtle 1 [
set disposition affect + probability + [weight] of red-link 0 1 * ([affect] of turtle 0 + [probability] of turtle 0) +
[weight] of red-link 2 1 * ([affect] of turtle 2 + [probability] of turtle 2) - threshold]
ask turtle 2 [
set disposition affect + probability + [weight] of red-link 0 2 * ([affect] of turtle 0 + [probability] of turtle 0) +
[weight] of red-link 1 2 * ([affect] of turtle 1 + [probability] of turtle 1) - threshold]
end
to move-turtles
ask turtles [
right random 360
forward 1
]
end
to take-action
ask turtles [
if disposition > 0 [ask patches in-radius action_radius [set pcolor red - 3]]
]
end
to activate-patches
ask patches
[if random 1000 < attack_rate * sin ticks / 10 and pcolor != red - 3 [set pcolor orange + 1]]
end
to deactivate-patches
ask patches
[if random 100 < 8 and pcolor != red - 3 [set pcolor yellow + random 2]]; they hide again
end
to quit-shopping
ask patches
[if random attack_rate * sin ticks >= 0 and attack_rate * sin ticks + random 5 < 10 [set pcolor yellow + random 2]]
end
to setup-MyLai
ask patches with [pxcor < -5 or pycor < -2 ]
[set pcolor yellow + random 2]
end
to do-plots1
set-current-plot "Disposition"
set-current-plot-pen "turtle 0"
plot [disposition] of turtle 0
set-current-plot-pen "turtle 1"
plot [disposition] of turtle 1 ; OR + [disposition] of turtle 1 + [disposition] of turtle 2
set-current-plot-pen "turtle 2"
plot [disposition] of turtle 2
end
to do-plots2
set-current-plot "Probability"
set-current-plot-pen "turtle 0"
plot [probability] of turtle 0
set-current-plot-pen "turtle 1"
plot [probability] of turtle 1
set-current-plot-pen "turtle 2"
plot [probability] of turtle 2
end
to do-plots3
set-current-plot "Affect"
set-current-plot-pen "turtle 0"
plot [affect] of turtle 0
set-current-plot-pen "turtle 1"
plot [affect] of turtle 1
set-current-plot-pen "turtle 2"
plot [affect] of turtle 2
end