| ... | @@ -55,9 +55,9 @@ Je vous laisse cela en exercice. |
... | @@ -55,9 +55,9 @@ Je vous laisse cela en exercice. |
|
|
Nous allons provoquer une épidémie parmi nos tortues et essayer de voir comment cela évolue. Une tortue va donc être, saine, infectée, ou remise. Elles vont se déplacer aléatoirement et avoir d'éventuels contacts.
|
|
Nous allons provoquer une épidémie parmi nos tortues et essayer de voir comment cela évolue. Une tortue va donc être, saine, infectée, ou remise. Elles vont se déplacer aléatoirement et avoir d'éventuels contacts.
|
|
|
|
|
|
|
|
```code
|
|
```code
|
|
|
====================
|
|
;======================================
|
|
|
; Nos pauvres tortues
|
|
; Initialisation de nos pauvres tortues
|
|
|
;====================
|
|
;======================================
|
|
|
|
|
|
|
|
;
|
|
;
|
|
|
; Initialisation des tortues
|
|
; Initialisation des tortues
|
| ... | @@ -65,11 +65,52 @@ Nous allons provoquer une épidémie parmi nos tortues et essayer de voir commen |
... | @@ -65,11 +65,52 @@ Nous allons provoquer une épidémie parmi nos tortues et essayer de voir commen |
|
|
; - position aléatoire
|
|
; - position aléatoire
|
|
|
; - non infectée (blanche)
|
|
; - non infectée (blanche)
|
|
|
to initialisation-tortues
|
|
to initialisation-tortues
|
|
|
ct population-initiale [
|
|
create-turtles population-initiale [
|
|
|
set color white
|
|
set color white
|
|
|
|
set size 0.5
|
|
|
setxy random-pxcor random-pycor
|
|
setxy random-pxcor random-pycor
|
|
|
]
|
|
]
|
|
|
end
|
|
end
|
|
|
|
|
|
|
|
;
|
|
|
|
; On tire au hasard nb-premiere-infectee tortues.
|
|
|
|
; Leur état change donc.
|
|
|
|
;
|
|
|
|
to souche-infection
|
|
|
|
ask n-of nb-premiere-infectee turtles [
|
|
|
|
set color red
|
|
|
|
]
|
|
|
|
end
|
|
|
|
|
|
|
|
to initialisation
|
|
|
|
ca
|
|
|
|
initialisation-tortues
|
|
|
|
souche-infection
|
|
|
|
reset-ticks
|
|
|
|
end
|
|
|
|
|
|
|
|
;==============
|
|
|
|
; La simulation
|
|
|
|
;==============
|
|
|
|
|
|
|
|
;
|
|
|
|
; Déplacement des tortues. On pourrait avoir un déplacement plus sophistiqué.
|
|
|
|
;
|
|
|
|
to bouge
|
|
|
|
ask turtles [
|
|
|
|
right random 360
|
|
|
|
forward pas
|
|
|
|
]
|
|
|
|
end
|
|
|
|
|
|
|
|
;
|
|
|
|
; Lancement de la simulation
|
|
|
|
;
|
|
|
|
to execute
|
|
|
|
bouge
|
|
|
|
tick
|
|
|
|
end
|
|
|
```
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|