Simulation cellules de convoyage pour logistique sur NetLogo

• init permet de créer la grille, ça efface tout et en particulier ça change la taille de la grille avec la valeur du slider world-size.
• build permet de cliquer sur la grille pour positionner les cases vertes (les entrées des boxs) ou bleues (les sorties) sur la bordure noire, ainsi que les cases oranges (les cellules) dans le damier.
• setup permet de numéroter les sorties (entre 0 et n-1) et initialises la configuration par défaut des cellules. C'est après le setup qu'il faudra compléter la configuration de chaque cellule, j'y reviens juste après.
• go permet de créer une nouvelle box dans chaque case de départ et fait avancer toutes les boxs d'une case. Si une box est sur une cellule, elle peut éventuellement changer de direction, conformément à la configuration de la cellule. Quand une box retourne au bord elle disparaît, même si elle n'atteint pas une sortie.
• reset permet d'effacer les boxs uniquement, mais les cases et leur configurations restent en place.

globals [ world-limit number-blue
  dark-grey light-grey dark-orange light-orange ]
patches-own [ north south east west ]

; création de la grille principale
; le bord est de couleur noir, l'intérieur est un damier de gris
to init
  clear-all
  
  ; changement de taille de la grille
  set world-limit (world-size + 1)
  set-patch-size (420 / world-size)
  resize-world 0 world-limit 0 world-limit
  
  ; modification des couleurs
  set dark-grey 2
  set light-grey 3
  set dark-orange 24
  set light-orange 25
  
  ask patches [    
    ifelse (pxcor = 0) or (pxcor = world-limit) 
    or (pycor = 0) or (pycor = world-limit) [
        set pcolor black
    ] [
      ifelse ((pxcor + pycor) mod 2 = 0) [
        set pcolor dark-grey
      ] [
        set pcolor light-grey
      ]
    ]
  ]
    
end

; manipulation de la grille avec la souris
; bord : noir (vide) -> vert (entrée) -> bleu (sortie) -> noir (vide)
; damier : gris (vide) -> cellule (orange) -> gris (vide)
to build
  if mouse-down? [
     ask patch mouse-xcor mouse-ycor [
      ifelse (pxcor = 0) or (pxcor = world-limit) 
      or (pycor = 0) or (pycor = world-limit) [
        ifelse (pcolor = black) [
          set pcolor green
        ] [
          ifelse (pcolor = green) [
          set pcolor blue
        ] [
            set pcolor black
          ]
        ]
      ] [
        ifelse (pcolor = dark-orange) or (pcolor = light-orange) [
          ifelse ((pxcor + pycor) mod 2 = 0) [
            set pcolor dark-grey
          ] [
            set pcolor light-grey
          ]
        ] [
          ifelse ((pxcor + pycor) mod 2 = 0) [
            set pcolor dark-orange
          ] [
            set pcolor light-orange
          ]
        ]
      ]
    ]
    wait 0.2 ; évite de cliquer deux fois de suite par erreur
  ]
end

; configuration des patchs après le build
to setup
  set number-blue 0
  ask patches [
    ifelse (pcolor = blue) [
      set plabel number-blue
      set number-blue (number-blue + 1)
    ] [
      set plabel ""
    ]
    
    set north []
    set south []
    set west []
    set east []
  ]
end

; animation principale
to go
  ask turtles [ forward 1 ]

  ; on supprime les tortues qui sont sur le bord
  ask patches with [(pxcor = 0) or (pxcor = world-limit)
    or (pycor = 0) or (pycor = world-limit)] [
    ask turtles-here [ die ]
  ]

  ; création d'une nouvelle tortue sur chaque entrée (case verte)
  ask patches with [pcolor = green] [
    sprout 1 [
      set color white
      set label (random number-blue)
      if (pxcor = 0) [ set heading 90 ]
      if (pxcor = world-limit) [ set heading 270 ]
      if (pycor = 0) [ set heading 0 ]
      if (pycor = world-limit) [ set heading 180 ]
    ]
  ]

  ; redirection des tortues par les cases oranges
  ask patches with [(pcolor = dark-orange) or (pcolor = light-orange)] [
    foreach north [ x ->
      ask turtles-here with [ label = x ] [
        set heading 0
      ]
    ]
    foreach south [ x ->
      ask turtles-here with [ label = x ] [
        set heading 180
      ]
    ]
    foreach east [ x ->
      ask turtles-here with [ label = x ] [
        set heading 90
      ]
    ]
    foreach west [ x ->
      ask turtles-here with [ label = x ] [
        set heading 270
      ]
    ]
  ]

end

; effacement des tortues
to reset
  clear-turtles
end

breed [ cellules cellule ]
breed [ boxs box ]
breed [ depots depot ]

globals [depot-x depot-y]

to setup
	clear-all
	reset-ticks

	set depot-x random-xcor
	set depot-y random-ycor

	create-depots 1
	[
		set shape "circle"
		set size 2
		set color green
		setxy depot-x depot-y
	]

	create-cellules numcellule
	[
		set shape "square"
		set color yellow
		setxy random-xcor random-ycor
	]

	create-boxs numbox
	[
		setxy random-xcor random-ycor
		set color red
	]
end

to go
	ask boxs
	[
		forward 1

		if any? cellules-on patch-here
		[
			set heading (random 360)
		]

		if any? depots-on patch-here 
		[
			die
		]
	]

	if not any? boxs
	[
		stop
	]

	tick
end