位于缓冲区内的多边形之间的边与边之间的距离

我想计算其中位于龟的多边形与位于多边形周围2公里的多边形之间的边到边距，位于乌龟。多边形由不同的ID表示，每个多边形由多个贴片组成。我通过下面的代码获取了一条错误消息“FOREACH预期这个输入是一个列表，但是代理集合取而代之”。我不明白为什么“[plabel = ID-polygon]）”的补丁不是一个列表？实际上，我想选择所有贴图的标签等于多边形的标签。谢谢你的帮助。位于缓冲区内的多边形之间的边与边之间的距离

to-report create-edge-turtles [ID-polygon] 
let edge-turtles nobody 
ask ID-polygon [ 
foreach (patches with [plabel = ID-polygon]) [ 
foreach sort neighbors [ 
sprout 1 [ 
    if [plabel] of neighbors != ID-polygon [ 
    face ? 
    fd distance ?/2 
    set edge-turtles (turtle-set edge-turtles self)] ] ] ] ] 
report edge-turtles 
end code here 

to-report edge-distance-between-polygons-in-buffer [indvidual] 
ask individual [ 
set list-ID-polygon-in-buffer ([plabel] of patch-here in-radius 2) 
set list-ID-polygon-in-buffer remove ([plabel] of patch-here) list-ID-polygon-in-buffer 
foreach list-ID-polygon-in-buffer [ 
let ID-polygon-with-individual ([plabel] of patch-here) 
let ID-polygon-in-buffer ? 
let edges-polygon-with-individual create-edge-turtles ID-polygon-with-individual 
let edges-polygon-in-buffer create-edge-turtles ID-polygon-in_buffer 
set distance-patches min [ min [ distance myself ] of edges-polygon-in-buffer ] of edges-polygon-with-individual 
ask edges-polygon-with-individual [ die ] 
ask edges-polygon-in-buffer [ die ] ] ] 
report distance-patches 
end

来源

2013-09-28 Marine

命令

patches with [plabel = ID-polygon]

返回agentset，而不是一个列表。要将代理人列表转换为列表，只需使用sort关键字，因此

sort patches with [plabel = ID-polygon]

来源

2013-09-30 18:47:41

位于缓冲区内的多边形之间的边与边之间的距离

回答

相关问题