使海龟在具有特定属性的补丁上移动

Question

我的 netlogo 模型遇到了一些问题，我希望有人能够帮助我解决这个问题。

我有一个带有特定属性的补丁的世界，这些属性代表公园、建筑物、街道（大小两种类型）等。我希望我的海龟向特定点移动（我设法做到了）。但是我希望海龟只在代表街道的补丁上移动，它们具有特定于它们的属性，蓝色和值 3 或 4。你有办法做到这一点吗？

这是我建立自己的世界的方式：

extensions  
[
  gis   
]


globals    
[
  Batiments
  ChemindeFer
  Cimetiere
  Densite
  Eau
  Ponts
  Routes
  TerrainSports
  Vegetations
]


patches-own 
[
  Cheminferroviaire
  Bati
  pont
  TerraindeSport
  Vege
  cimetary
  water
  road
  densitepop
  Npatchvert

]


breed [ Renards renard]
breed [ Proies proie]


Renards-own
[
  stress
  poids
]


Proies-own
[
  weight
]


to setup          
ca                
  initialiserGIS  
  creerRenard
  creerProie
  move
reset-ticks

end



  to initialiserGIS            


  ; ---------------------- chargement densité ----------------------------

  set Densite gis:load-dataset "desite_ind_g.asc"
  gis:apply-raster Densite densitepop

  let min-Densite gis:minimum-of Densite
  let max-Densite gis:maximum-of Densite
   ask patches
  [
    ifelse densitepop >= 1.5
    [ set pcolor scale-color grey densitepop 1.5 6]
    [ set pcolor white ]
  ]


  ;------------------- chargement des chemin de fer ----------------

  set ChemindeFer gis:load-dataset "chdefer_g.asc"
  gis:apply-raster ChemindeFer Cheminferroviaire
  ask patches with [Cheminferroviaire = 1]
  [set pcolor grey]


   ;--------------------- chargement batiments --------------------

  set Batiments gis:load-dataset "batiment_g.asc"
  gis:apply-raster Batiments Bati
  ask patches with [Bati = 1]
  [set pcolor brown]


   ;--------------------- chargement des ponts --------------------

  set Ponts gis:load-dataset "ponts_g.asc"
  gis:apply-raster Ponts pont
  ask patches with [ pont = 1]
  [set pcolor 87]

  ;--------------------- chargement de l'eau ----------------------

  set Eau gis:load-dataset "eau_g.asc"
  gis:apply-raster Eau water
  ask patches with [ water = 1]
  [set pcolor blue]

  ;--------------------- sports field -----------------

  set TerrainSports gis:load-dataset "terrain_sport_g.asc"
  gis:apply-raster TerrainSports TerraindeSport
  ask patches with [ TerraindeSport = 1]
  [set pcolor green]

  ;--------------------- végétation --------------------

  set Vegetations gis:load-dataset "vegetation_g.asc"
  gis:apply-raster Vegetations Vege
  ask patches with [ vege = 1 ]
  [set pcolor green]

  ;--------------------- cimetary --------------------

  set Cimetiere gis:load-dataset "cimetiere_g.asc"
  gis:apply-raster Cimetiere cimetary
  ask patches with [ cimetary = 1 ]
  [set pcolor green]

  ;---------------------- roads ---------------------------

  set Routes gis:load-dataset "routes_g.asc"
  gis:apply-raster Routes road

  ask patches with
  [ road = 4] [set pcolor 87]
  ask patches with
  [ road = 3] [set pcolor 104]
  ask patches with
  [ road = 0] [set pcolor green]


end




to creerRenard

  create-Renards 10

end 

to move

  ; --- 1st mouvement (towards campus) --- 
  ask renards 
  [ set heading towardsxy 10 101 
  fd 1 ]
end

Answer 1

为了防止乌龟踩到蓝块以外的任何东西，你可以这样做：

ifelse [pcolor = blue] of patch-ahead 1
  [ fd 1 ]
  [ ...do something else here... ]

但您需要确定“做其他事情”部分是什么。在那种情况下你想发生什么……？