在 Netlogo 中创建海龟

Question

我的 ABM 需要一些帮助。我的模型是基于元胞自动机的。海龟有自行车、自行车和汽车三个品种。当模拟开始时，设置程序应该创建一些特定数量的海龟。例如： 30% 的海龟拥有品种自行车， 30% 的海龟具有繁殖周期和 40% 的海龟有品种车。 和总数 (30% + 30% + 40%) = 海龟总数 我的代码如下所示：

breed[bike]
breed[cycle]
breed[car]
to setup
ask patches[
sprout 1 [
let b = count bike(round (30 / 100 * count turtles)) 
let cy = count cycle(round(30 / 100 * count turtles))
let c = count car (round(40 / 100 * count turtles))
create-bike b
 ask bike[set color gray]
create-cycle cy
ask cycle[set color blue]
create-car c
ask car[set color green]
]
]
end

但是由于 creat-bike、create-cycle 和 create-car 是观察者而发生错误，不能在这里使用。 请指导我。 谢谢

Answer 1

你正在一个新芽语句中做一个 create-turtle。两者都是创建海龟的方法。这是您所拥有的更正版本：

breed[bikes bike]
breed[cycles cycle]
breed[cars car]

to setup
  set num-turtles 100     ; or use a slider to set total turtle numbers
  create-bikes round (0.3 * num-turtles)
  [ set color gray
    setxy random-xcor random-ycor
  ]
  create-cycles round (0.3 * num-turtles)
  [ set color blue
    setxy random-xcor random-ycor
  ]
  create-cars round (0.4 * num-turtles)
  [ set color green
    setxy random-xcor random-ycor
  ]
end

但是，您可能希望每个补丁都有一只乌龟（如果我正确解释了您对元胞自动机的请求）。在这种情况下，你需要这样的东西：

breed[bikes bike]
breed[cycles cycle]
breed[cars car]

to setup
  ask patches
  [ let xx random-float 1
    ifelse xx < 0.3 [ sprout-bikes 1 [ set color gray ] ] [
    ifelse xx < 0.6 [ sprout-cycles 1 [ set color blue ] ] [
                    [ sprout-cars 1 [ set color green ] ] ] ]
  ]
end

我强烈建议您先阅读 NetLogo 网站上的在线教程，然后再尝试编写下一个代码，因为您缺少一些基础知识。例如，count turtles 是一个报告已经存在的海龟数量的指令。你需要了解接口和代码之间的联系。您可能还应该查看一些示例模型。