NetLogo代码括号报错求助：增减括号均提示错误

原代码存在多处括号匹配错误及语法问题，以下是具体问题点和修正后的完整代码：

核心错误点 #

• setup过程中，[ plants ]属于多余括号，NetLogo调用过程直接写过程名即可，无需套括号
• go过程中嵌套的ask和if未正确闭合括号，每个ask、if的代码块必须用[ ]包裹且一一对应
• plants过程中，ask neighbors4 with pcolor = black缺少包裹条件的[ ]，且整体代码块括号结构混乱
• go过程末尾遗漏了所有嵌套ask的闭合括号，导致语法中断

修正后的完整代码 #

globals [
  initial-trees  
  burned-trees ]    

breed [fires fire]       

to setup
  clear-all
  set-default-shape turtles "square" 
  ask patches with [(random-float 100) < density]
    [ set pcolor green ] 
  plants  ; 移除多余括号，直接调用过程
  ask patches with [pxcor = min-pxcor]
    [ ignite ]
  set initial-trees count patches with [pcolor = green]
  set burned-trees 0
  reset-ticks
end

to go 
  if not any? turtles 
    [ stop ]
  ask fires [
    ask neighbors4 with [pcolor = green] [
      if random 100 < 50 [ ignite ]
    ]
    ask neighbors4 with [pcolor = blue] [
      ask neighbors4 with [pcolor = grey] [
        if random 100 < 25 [ ignite ]
      ]
    ]
  ]  ; 闭合ask fires的代码块
  tick
end

to ignite 
  sprout-fires 1
    [ set color yellow ]
  set pcolor black
  set burned-trees burned-trees + 1
end
  
to plants
  ask neighbors4 with [pcolor = black] [  ; 给条件添加[ ]，并用[ ]包裹代码块
    set pcolor blue 
  ]
  ask neighbors4 with [pcolor = blue] [  ; 修正括号结构，每个ask对应独立代码块
    set pcolor grey 
  ]
end

额外提示 #

NetLogo代码块必须严格遵循关键字 [ 代码内容 ]的结构，嵌套时建议每层级缩进一次，这样能直观判断括号是否匹配，避免遗漏或多余括号。

内容的提问来源于stack exchange，提问作者Eduardo Dorado