Question

我对我的部分代码有些困惑。 Netlogo reort“不能在观察者环境中使用GO，因为只有补丁”

我的猜测是，这是因为在go部分我要求一个不以“询问补丁”开头的程序（CACULATEWILANDATRAC）。但是（CACULATEWILANDATRAC）产生的是计算其中一个补丁自己的变量，所以问补丁似乎不适合这里。

我仍然试图在采购之前提出问题补丁来解决它，但随后运行模型时出现另一个错误：“只有观察者可以询问所有补丁的集合。补丁1079 509运行ASK时出错调用（匿名命令：[[the-Land-use the-Senario] - ＆gt;请求补丁[如果计数补丁与[土地使用]＆gt; the-Senario [设置Willingstochange True]]]）由程序调用CACULATEWILANDATRAC“

问题在于在哪里调用CACULATEWILANDATRAC程序？它现在是go过程的一部分，但是因此给出了错误“不能在观察者上下文中使用XXX，因为只有龟”。

我的整个代码：

> extensions [gis]
globals
[
  land-use-map
   Senario1N               ;; the count of patches senario 1 describes
   Senario1L
   Senario1A
   Senario1B
   Senario1I
   Senario1R
   Senario1W
  %landusetypeN           ;; the amount patches
  %landusetypeL
  %landusetypeA
  %landusetypeB
  %landusetypeI
  Willingstochange        ;; If true a patch would like to change (if true the count of patches has a surplus comparing to the sneario, if false they have a shortage)
  atractiveness           ;; if a patch type is attractive to change in <1 = yess
  Atractiveneighbor

]

patches-own
  [   Land-use                ;; Wat kind og landusetype a patch has
    ]



to setup
  clear-all
  load-gis   ;;load the maps
  setup-constants
  update-global-variables
  update-display
  reset-ticks
end



to load-gis  ;;load the maps

  set land-use-map gis:load-dataset "a_LANDUSE_cellsize5.asc"     ;;loads the land use map
  gis:set-world-envelope-ds gis:envelope-of land-use-map          ;;sets the envelope of the world to match that of the GIS dataset
  gis:apply-raster land-use-map Land-use                          ;;patches in the land-use-map have a specific land-use now

  ask patches [
    if Land-use = 1 [ set pcolor Green ] ; Green = Nature         ;; patches have a certain color now
    if Land-use = 2 [ set pcolor red ] ; Dark red = Leisure
    if Land-use = 3 [ set pcolor Yellow ] ; Yellow = Agriculture
    if Land-use = 4 [ set pcolor brown ] ; brouwn = Buildup
    if Land-use = 5 [ set pcolor grey ] ; grey = roads
    if Land-use = 6 [ set pcolor pink ] ; pink = industry
    if Land-use = 7 [ set pcolor blue ] ; Blue = water
  ]


    resize-world 0 1633 0 780
    set-patch-size 1

end

to setup-constants
  set Senario1N 49174        ;; the count of patches senario 1 describes
  set Senario1L 17871
  set Senario1A 569970
  set Senario1B 34202
  set Senario1I 5540
  set Senario1R 34968
  set Senario1W 65594

end



to go ;; this asks the model to caculate certain variables defined below
  givecountlansusetypes
  askforchange
  caculateWILandAtrac
  tick
end

to givecountlansusetypes ;; here the cuurent amount of patches is shown
  show count patches with [Land-use = 1]
  show count patches with [Land-use = 2]
  show count patches with [Land-use = 3]
  show count patches with [Land-use = 4]
  show count patches with [Land-use = 5]
  show count patches with [Land-use = 6]
  show count patches with [Land-use = 7]
end

to update-display
  ask patches
  [
    if Land-use = 1 [ set pcolor Green ]   ;; Green = Nature           ;; patches have a certain color now
    if Land-use = 2 [ set pcolor red ]     ;; Dark red = Leisure
    if Land-use = 3 [ set pcolor yellow ]  ;; Yellow = Agriculture
    if Land-use = 4 [ set pcolor brown ]   ;; brouwn = Buildup
    if Land-use = 5 [ set pcolor grey ]    ;; grey = roads
    if Land-use = 6 [ set pcolor pink ]    ;; pink = industry
    if Land-use = 7 [ set pcolor blue ]    ;; Blue = water
    ]
end

to update-global-variables
  if count patches > 0
    [ set %landusetypeN (count patches with [ Land-use = 1 ] / count patches) * 100
      set %landusetypeL (count patches with [ Land-use = 2 ] / count patches) * 100
      set %landusetypeA (count patches with [ Land-use = 3 ] / count patches) * 100
      set %landusetypeB (count patches with [ Land-use = 4 ] / count patches) * 100
      set %landusetypeI (count patches with [ Land-use = 6 ] / count patches) * 100
    ]

end



to caculateWILandAtrac
  ;; Sets Willingness to change true if patches are with more fellowpatches than the senario decribes
  (foreach list (Land-use = 1) (Land-use = 2)[49174 17871]
  [ [the-Land-use the-Senario] ->  ask patches [if count patches with [the-Land-use] > the-Senario [ set Willingstochange True ] ] ])
  ;; gives score to the patches attractiveness based on the ratio patches/senario

  (foreach list (Land-use = 1) (Land-use = 2)[49174 17871]
  [ [the-Land-use the-Senario] ->  ask patches  [ set atractiveness (count patches with [the-Land-use]/ the-Senario) ]  ])

end


to askforchange
  ask patches [
    if Willingstochange = true [change]    ;; this ask the patches that are willing to change (have a surpuls) to go and change
  ]
end


to change
  ask neighbors with [Willingstochange = false ]                   ;; this asks if the patch had neigbors with a shortage
  [set Atractiveneighbor min-one-of patches [atractiveness]]       ;; this asks to give the neigbor with the lowest patchcount/senario ratio
  ask patches [set Land-use ([Land-use] of Atractiveneighbor)]     ;; this asks the patches to change their land-use to the land-use of neigbor with the lowest patchcount/senario ratio

end

Answer 1

在您的最后一行代码中，当前要求的补丁（在askforchange中询问）要求所有补丁相应地设置其土地使用。我认为存在问题。

如果用以下内容替换最后一行，也许它可以解决您的问题：

set Land-use ([Land-use] of Atractiveneighbor)

有了这个，当前要求的补丁相应地改变其土地使用。但我不太确定，如果那是你想要的程序在那里做什么？

“不能在观察者上下文中使用XXX，因为只有补丁”

1 个答案: