如何将我的代码从Netlogo转换到Netlogo Web?(';TO或TO-REPORT预期的';错误)

如何将我的代码从Netlogo转换到Netlogo Web?(';TO或TO-REPORT预期的';错误),netlogo,Netlogo,我想使用Netlogo Web打开我的Netlogo(桌面版)模型,但它似乎不起作用。当我试图上传我的模型时,我得到一个“TO或TO-REPORT expected”错误。不知道我做错了什么。我在下面插入了代码。它应该模拟一个细胞过程,在这个过程中,细胞分裂,细胞丝分支,细胞随着年龄的增长而改变形状(过程“分裂”、“分支”、“转化”)。请帮忙 to setup clear-all setup-turtles reset-ticks ask turtles [ set size 1 ] end

我想使用Netlogo Web打开我的Netlogo(桌面版)模型,但它似乎不起作用。当我试图上传我的模型时,我得到一个“TO或TO-REPORT expected”错误。不知道我做错了什么。我在下面插入了代码。它应该模拟一个细胞过程,在这个过程中,细胞分裂,细胞丝分支,细胞随着年龄的增长而改变形状(过程“分裂”、“分支”、“转化”)。请帮忙

to setup
clear-all
setup-turtles
reset-ticks
  ask turtles [ set size 1 ]
end

to setup-turtles
create-threads 1

ask turtles [
  setxy random-xcor random-ycor
  set shape "line"
  set color 65
   ]
end

turtles-own [age]

to go
  add-age
  divide
  branch
  transform
  tick
  ask turtles [ set size 1 ]
end

breed [threads thread]
breed [cylinders cylinder]
breed [circles circle]


to add-age
  ask turtles [
    set age age + 1
  ifelse show-age?
[ set label age ]
[ set label "" ]
  ]
end

to divide
  ask turtles [
    if breed = threads or breed = cylinders [
    ifelse random 100 < 50
    [if (not any? other turtles-on patch-ahead 1) and
      (not any? other turtles-on patch-right-and-ahead 10 1) and
      (not any? other turtles-on patch-left-and-ahead 10 1)
      [hatch 1
        [let turn-degree (random(20) - 10)
          rt turn-degree
          fd 1
          set age age - 1
          ]
    ]
  ]
    [if (not any? other turtles-on patch-right-and-ahead 180 1) and
      (not any? other turtles-on patch-right-and-ahead 170 1) and
      (not any? other turtles-on patch-right-and-ahead 190 1)
      [hatch 1
        [let turn-degree (170 + random(20))
          rt turn-degree
          fd 1
          set age age - 1
        ]

        ]

      ]
    ]]
end

to branch
  ask circles [
    if random 1000 < 2[
    ifelse random 100 < 50
        [if not any? other turtles-on patch-right-and-ahead 90 1
      [hatch-threads 1
        [right 90
          fd 1
          set age 0
          set shape "line"]
    ]
  ]
    [if not any? other turtles-on patch-left-and-ahead 90 1
      [hatch-threads 1
        [left 90
          fd 1
          set age 0
          set shape "line"]
        ]
      ]
  ]]
end

to transform
  ask threads[
  if (age > 50) and (random 100 < 50)[
  set breed cylinders
  set shape "cylinder1"
  ]
  ]
  ask cylinders[
  if (age > 100) and (random 100 < 50) [
  set breed circles
  set shape "circle"
  ]
  ]
end
设置
清除所有
安置海龟
重置滴答声
询问海龟[设定大小1]
结束
安置海龟
创建线程1
问海龟[
setxy随机xcor随机ycor
设置形状“线”
设置颜色65
]
结束
海龟自己[年龄]
外带
加年龄
分
分支
使改变
打上钩
询问海龟[设定大小1]
结束
繁殖[线程]
品种[圆筒]
繁殖[圆圈]
增龄
问海龟[
设置年龄+1
如果还有人显示年龄?
[设置标签年龄]
[设置标签“”]
]
结束
分
问海龟[
如果品种=螺纹或品种=圆柱体[
ifelse随机100<50
[如果有(没有?前方补丁1上的其他海龟)和
(没有?其他海龟在补丁右侧和前方10 1)和
(没有?其他海龟在补丁左侧和前方10 1)
[舱口1
[让转角度(随机(20)-10)
转度
fd 1
设定年龄-1岁
]
]
]
[如果(没有?其他海龟在补丁右侧和前方180 1)和
(没有其他海龟?在170 1右侧和前方的补丁上)和
(没有?其他海龟在补丁右侧和前方190 1)
[舱口1
[旋转角度(170+随机(20))
转度
fd 1
设定年龄-1岁
]
]
]
]]
结束
分支
问圈[
如果随机1000<2[
ifelse随机100<50
[如果没有?其他海龟在右前方的补丁上90 1
[舱口线1
[对90
fd 1
设定年龄0
设置形状“线”]
]
]
[如果没有?其他海龟在补丁左侧和前方90 1
[舱口线1
[左90
fd 1
设定年龄0
设置形状“线”]
]
]
]]
结束
转化
询问线索[
如果(年龄>50岁)和(随机100<50岁)[
设置繁殖气缸
设置形状“cylinder1”
]
]
询问气缸[
如果(年龄>100)和(随机100<50)[
设置繁殖圈
设置形状“圆”
]
]
结束

NetLogo Web对声明顺序的要求更严格(未来版本的NetLogo桌面也将如此)

只要把你的
海龟自己的
繁殖
语句移到代码的顶部,你就应该没事了