Dictionary 我能';在代码中找不到我缺少的内容,因此地图会更新

Dictionary 我能';在代码中找不到我缺少的内容,因此地图会更新,dictionary,netlogo,Dictionary,Netlogo,我正在创建一个netlogo模型来研究城市扩张对现有景观的影响,基于5年、10年和15年的预测。。。我尝试过在一个更简单的模型中编码,它不是基于地图的,它工作得很好,但是当我尝试将它合并到使用地图的版本中时,不同的投影不会更新,我找不到我命名错误的东西。。。也许有人可以 我在模型的简单版本中首先写的是:(cobertura urbana是一个选择者) 自己的补丁程序 [tipoDeUso] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

我正在创建一个netlogo模型来研究城市扩张对现有景观的影响,基于5年、10年和15年的预测。。。我尝试过在一个更简单的模型中编码,它不是基于地图的,它工作得很好,但是当我尝试将它合并到使用地图的版本中时,不同的投影不会更新,我找不到我命名错误的东西。。。也许有人可以

我在模型的简单版本中首先写的是:(cobertura urbana是一个选择者)

自己的补丁程序
[tipoDeUso]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
设置
ca
安装补丁
重置滴答声
结束
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
设置修补程序
询问补丁[设置颜色为黄色]
询问n-250个贴片[设置颜色为橙色]
问n-350块[设置彩色石灰]
使用[pycor>1][设置pcolor绿色]询问450个补丁中的n个补丁
问n-150个贴片,其中[pxcor>=圆形(最大pxcor/2)和pycor<0][set pcolor grey]
使用[pycor<1和pxcor>0][set pcolor lime]询问150个贴片中的n个贴片
使用[pxcor=3][set pcolor blue]询问25个贴片中的n个贴片
询问补丁[initTipoDeUso]
初发性鼻窦炎
询问补丁[颜色]
结束
开始
如果pcolor=灰色[设置tipoDeUso“Urbano”]
如果pcolor=黄色[设置tipoDeUso“AgriculturateTemporal”]
如果pcolor=石灰[设置tipoDeUso“AgriculturaRiego”]
如果pcolor=橙色[设置tipoDeUso“Pastizal”]
如果pcolor=绿色[设置tipoDeUso“Bosque”]
如果pcolor=蓝色[设置tipoDeUso“CuerposDeAgua”]
结束
以启动NariocBerturaurbana
如果cobertura urbana=“项目-5”[
询问带有[tipoDeUso=“Urbano”的补丁以及带有[tipoDeUso=“AgriculturateTemporal”或tipoDeUso=“AgriculturaleGo”或tipoDeUso=“Pastizal”]的任何邻居4][
询问半径1中的补丁[

如果random float 1.00存在错误消息,或者只是意外行为?只是意外行为
patches-own 
[tipoDeUso]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SETUP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to setup
  ca
  setup-patches
  reset-ticks

end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SETUP PROCEDURES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to setup-patches
  ask patches [set pcolor yellow]
  ask n-of 250 patches [set pcolor orange]
  ask n-of 350 patches [set pcolor lime]
  ask n-of 450 patches with [pycor > 1] [ set pcolor green ]
  ask n-of 150 patches with [pxcor >= round (max-pxcor / 2) and pycor < 0][set pcolor grey ]
  ask n-of 150 patches with [pycor < 1 and pxcor > 0] [set pcolor lime]
  ask n-of 25 patches with [ pxcor = 3] [set pcolor blue]

  ask patches [initTipoDeUso]
  initEscenarioCoberturaUrbana
  ask patches [actualizarColor]
end

to initTipoDeUso
  if pcolor = grey [ set tipoDeUso "Urbano"]
  if pcolor = yellow [ set tipoDeUso "AgriculturaTemporal"]
  if pcolor = lime [ set tipoDeUso "AgriculturaRiego"]
  if pcolor = orange [ set tipoDeUso "Pastizal"]
  if pcolor = green [ set tipoDeUso "Bosque" ]
  if pcolor = blue [ set tipoDeUso "CuerposDeAgua"]
end
 
to initEscenarioCoberturaUrbana
  if cobertura-urbana = "proyeccion-5" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.044 [
          set tipoDeUso "Urbano"
  ]]]]
  
  if cobertura-urbana = "proyeccion-10" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.088 [
          set tipoDeUso "Urbano"
  ]]]]
  
  if cobertura-urbana = "proyeccion-15" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.132 [
          set tipoDeUso "Urbano"
  ]]]]
end

to actualizarColor
  if tipoDeUso = "Urbano"              [ set pcolor grey ]
  if tipoDeUso = "AgriculturaTemporal" [ set pcolor yellow ]
  if tipoDeUso = "AgriculturaRiego"    [ set pcolor lime  ]
  if tipoDeUso = "Pastizal"            [ set pcolor orange ]
  if tipoDeUso = "Bosque"              [ set pcolor green ]
  if tipoDeUso = "CuerposDeAgua"       [ set pcolor blue ]
end

extensions [ gis ]

patches-own [
  TipoRaster
  TipoDeUso ; Uso de suelo
]

globals [
raster-dataset
]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SETUP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to setup
  ca
  cargarMapa
  reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; PROCESOS SETUP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to cargarMapa ;usa el mapa de uso de suelo elaborado por Urrutia-cardenas (2019)
  set raster-dataset gis:load-dataset "/home/lorena/Documents/UNAM/Tesis/versiones de corrección/mapa_raster_final.asc"
  gis:set-world-envelope ( gis:envelope-of raster-dataset )
  gis:apply-raster raster-dataset TipoRaster
  ask patches [initTipoDeUso]
  initEscenarioCoberturaUrbana
  ask patches [actualizarColor]
end

to initTipoDeUso
  if tipoRaster = 0 [ set tipoDeUso "Nada" set pcolor black ] 
  if tipoRaster = 1 [ set tipoDeUso "Urbano" set pcolor gray]
  if tipoRaster = 2 [ set tipoDeUso "AgriculturaTemporal" set pcolor yellow]
  if tipoRaster = 3 [ set tipoDeUso "AgriculturaRiego" set pcolor lime ]
  if tipoRaster = 4 [ set tipoDeUso "Pastizal" set pcolor orange ]
  if tipoRaster = 5 [ set tipoDeUso "Bosque" set pcolor green ]
  if tipoRaster = 6 [ set tipoDeUso "CuerposDeAgua" set pcolor sky]
  if tipoRaster = 7 [ set tipoDeUso "Otros"]
end

to initEscenarioCoberturaUrbana
  if cobertura-urbana = "proyeccion-5" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.044 [
          set tipoDeUso "Urbano"
  ]]]]
  
  if cobertura-urbana = "proyeccion-10" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.088 [
          set tipoDeUso "Urbano"
  ]]]]
  
  if cobertura-urbana = "proyeccion-15" [
    ask patches with [tipoDeUso = "Urbano" and any? neighbors4 with [ tipoDeUso = "AgriculturaTemporal" or tipoDeUso = "AgriculturaRiego" or tipoDeUso = "Pastizal"]][
      ask patches in-radius 1 [
        if random-float 1.00 <= 0.132 [
          set tipoDeUso "Urbano"
  ]]]]
end

to actualizarColor
  if tipoDeUso = "Nada"                [ set pcolor black ]
  if tipoDeUso = "Urbano"              [ set pcolor gray  ]
  if tipoDeUso = "AgriculturaTemporal" [ set pcolor yellow  ] 
  if tipoDeUso = "AgriculturaRiego"    [ set pcolor lime  ]
  if tipoDeUso = "Pastizal"            [ set pcolor orange  ]
  if tipoDeUso = "Bosque"              [ set pcolor green  ]
  if tipoDeUso = "CuerposDeAgua"       [ set pcolor sky ]
  if tipoDeUso = "Otros"               [ set pcolor magenta + 1 ]
end