Simulacion comportamiento cianobacterias frente a los mangles

; Fase Micro – Ciénaga Grande de Santa Marta (CGSM)
; Simbiosis entre bacterias y mangles
; Comportamiento corregido para que se acerquen y cambien de color al hacer simbiosis

breed [bacterias bacteria]
breed [mangles mangle]

patches-own [nutrientes]
bacterias-own [afinidad]
mangles-own [raiz-activa]

to setup
  clear-all
  set-default-shape bacterias "circle"
  set-default-shape mangles "tree"
  ask patches [ set pcolor green set nutrientes random 10 ]

  create-mangles 10 [
    setxy random-xcor random-ycor
    set color brown
    set raiz-activa true
  ]

  create-bacterias 80 [
    setxy random-xcor random-ycor
    set color cyan
    set size 0.7
    set afinidad random-float 1
  ]
  reset-ticks
end 

to go
  simbiosis-micro
  tick
end 

to simbiosis-micro
  ask bacterias [
    let objetivo one-of mangles in-radius 8
    if objetivo != nobody [
      face objetivo
      rt random 10 - random 10 ; añade una variación angular para evitar estancamientos
      fd 1.5
      if distance objetivo < 1 [
        set color yellow ; simbiosis activa
      ]
    ]
  ]
end