Netlo go: попросить определенную c черепаху сделать что-нибудь - PullRequest
Новая
       17

Netlo go: попросить определенную c черепаху сделать что-нибудь

0 голосов
/ 01 мая 2020

Я пытаюсь смоделировать автомобильный завод, используя роботов под названием carriers. В моем методе go я пытаюсь попросить одного перевозчика, который не работает, найти cutter и go для него.

Как я могу попросить указанного c перевозчика сделать что-то?

Это то, что я сделал до сих пор: 

metal-sheets
cut-sheets
standard-skeleton
finished-standard-skeleton
prestige-skeleton
finished-prestige-skeleton
]

breed[carriers carrier]

turtles-own [
on-job?
]

patches-own [
processing-time
  machine-type ;;cutter, standard-welder, prestige-welder, riveter
  status ;;import, export, pending
]

to setup
  set-default-shape carriers "circle"
  create-carriers number-of-carriers
  [set color grey
  set on-job? false]
  setup-patches
  reset-ticks
end

to setup-patches
  ask patches [
    if pxcor = 1 and pycor = 1 [set machine-type "cutter"]
    if pxcor = 1 and pycor = 5 [set machine-type "standard-welder"]
    if pxcor = 5 and pycor = 1 [set machine-type "prestige-welder"]
    if pxcor = 5 and pycor = 5 [set machine-type "riveter"]

    if machine-type = "cutter" 
    [set pcolor red
    set status "import"]
    if machine-type = "standard-welder" 
    [set pcolor green
    set status "import"]
    if machine-type = "prestige-welder" 
    [set pcolor blue
    set status "import"]
    if machine-type = "riveter" 
    [set pcolor yellow
    set status "import"]
  ]
end

to Go

  let cutter patches with [machine-type = "cutter"]
    let standard-welder patches with [machine-type = "standard-welder"]
    let prestige-welder patches with [machine-type = "prestige-welder"]
    let riveter patches with [machine-type = "riveter"]

  let free-carriers carriers with [in-job? false]

  ask free-carriers [
     ;;on-job is a carrier-owned variable
      ask cutter [
        if status = "import" [
          set status "pending"
          face cutter ;; I want the carrier to face the cutter and move towards it
          fd 1

      ]
    ]
  ]
end```

1 Ответ

0 голосов
/ 01 мая 2020

Я предполагаю, что вы хотите, чтобы free-carriers нашел патч резака со статусом "импорт", чтобы этот резак изменил свой статус, а затем переместил носитель к нему. 

ask free-carriers [
  ;;on-job is a carrier-owned variable
  let my-cutter one-of cutter with [status = "import"]
  if my-cutter != nobody [
    ask my-cutter [ set status "pending" ]
    face cutter ;; I want the carrier to face the cutter and move towards it
    fd 1
  ]
]

Так как каждый свободный носитель делает это в (случайном) порядке, и никакие два свободных носителя не должны go к одному и тому же резцу. Это выберет подходящего резца случайным образом. Вы можете иметь свободных перевозчиков go до ближайшего, если хотите.

Надеюсь, это поможет, Чарльз

...