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