Mouse Map

 globals [     ;; setting the globals for the model functioning
  mylist-x
  mylist-r
  num-iterations
  axis
 ]

breed [ m-turtles m-turtle ]    ;; these are turtles to be ploted on
                                ;; on bifurcation diagram

to setup   ;; general setup procedure
  ca
  set mylist-x  list (0) (-1)     ;; setting the list for turtles x-coordinates
  set mylist-r list  (0) (-1)    ;; setting the list for turtles y-coordinates
  create-axis                   ;; creating coordinates axes
  setup-c-origin                ;; and their components.
  setup-coordinates
  set num-iterations 22500    ;; this is the max number of iterates which
                              ;; "keeps" the results of iterations in the
                              ;; limits of the model world
  reset-ticks
end 

to create-axis
  ask patches with [ pxcor = (- 200) ] [ set pcolor white ]
  ask patches with [ pycor = (- 100) ] [ set pcolor white ]
end 

to setup-c-origin

ask patch -185 140
  [ set plabel "f (x)"
    set plabel-color yellow
    ]
  ask patch 190 -105
  [ set plabel "beta-parameter"
    set plabel-color yellow
   ]
end 

to setup-coordinates
ask patch -185 -95
[ set plabel "-1.0"
set plabel-color white
  ]

 ask patch -100 -95
[ set plabel "-0.5"
set plabel-color white
  ]

 ask patch 0 -95
[ set plabel "0"
set plabel-color white
  ]

  ask patch 100 -95
[ set plabel "0.5"
set plabel-color white
  ]

  ask patch 200 -95
[ set plabel "1.0"
set plabel-color white
  ]

  ask patch -185 155
[ set plabel "1.5"
set plabel-color white
  ]

  ask patch -185 100
[ set plabel "1.0"
set plabel-color white
  ]

  ask patch -185 50
[ set plabel "0.5"
set plabel-color white
  ]

   ask patch -190 0
[ set plabel "0"
set plabel-color white
  ]

   ask patch -185 -50
[ set plabel "-0.5"
set plabel-color white
  ]
end 

to go                                        ;; procedure of iteration

  set mylist-x lput result mylist-x               ;; generation of the list with
  repeat 30 [set mylist-x lput result mylist-x]   ;; x-coordinates of turtles

  set mylist-r lput result-r mylist-r         ;; generation of the list with
                                              ;; x-coordinates of turtles
  if ticks >= Num-iterations [ stop ]    ;; condition for stopping the model once
                                         ;; the preset number of iterations is reached
  create-m-turtles 1 [        ;; creating a turtle every iteration/tick
    set color green           ;; and ploting it according to the coordinates
    set shape "circle"        ;; as values in the respective lists
    set size 0.5
    set xcor (last mylist-r) * 200
    set ycor (last mylist-x) * 100
    ]
  tick
end 

to-report result                                               ;; reports the result of iterations
  report  exp ((- alpha-parameter) * last mylist-x * last mylist-x) + last mylist-r
end 

to-report result-r                  ;; reports the result of r-increments with every iteration/tick
  report last mylist-r + 0.00008
end