比较列表中的值

Question

我是 stackoverflow 新手，但对我的模型有疑问。

我的模型由两种代理（渔民和加工者）组成。目前我有两个渔民和两个加工商。这两个品种都有一个特定的价格感知变量，称为：价格感知渔民和价格感知处理器。渔民外出捕鱼，一旦船满了（捕获量 = 750），他们就会返回到其中一个加工商处。这是通过以下函数完成的：

to return-from-fishing ;; makes fishers return once they have a certain amount of fish 
  if epi-catch >= 1000 or exp-meso-catch >= 750                          
    [move-to one-of processors     
     set arrived-at-processor? true
     ]
end

我想做的是将渔民的价格感知与渔民访问的处理器的价格感知进行比较。

目前我尝试通过创建两个列表来做到这一点；一是加工者的价格认知，一是渔民的价格认知。我使用 list-transactions (map > list-of-fishers-price-perceptions list-of-processors-price-perceptions) 来比较它们，

它的作用是迭代两个列表并比较中的值名单。然而问题是这些值是随机比较的，我希望渔民将他自己的价格与他访问的处理器的价格进行比较。如果渔民的价格感知高于渔民的价格感知处理器，渔民就会转移到另一个处理器，否则他们将执行交易

我的模型中的示例如下：

海龟的变量初始化如下：

   set fisher 0 price-perception-fisher 12.5 
   set fisher 1 price-perception-fisher 15
   set processor 2 price-perception-processor 10 
   set processor 3 price-perception-processor 15

当渔民随机移动时对于其中一个处理器，两个渔民都可以移动到处理器 2。那么预期输出将是：

渔民 0 (12.5) 移动到处理器 2 (10) 并且当 12.5 >= 10 时，该值应该是 true

渔民 1 (15) 移动到处理器 2 (15) 并且当 15 >= 15 时，该值应该是 true

但是我得到这个输出，因为列表不明白渔民已经移动到处理器 2，因此他们将价格感知渔民 0 与价格感知处理器 3 进行比较，而在本例中我想要比较价格感知渔民 0 与价格感知处理器 3。

[15 12.5] ; fishers price perceptions
[10 15] ; processors price perceptions
[true false]

有办法做到这一点吗？

Answer 1

你把它弄得太复杂了：只需让每只乌龟直接查看该处理器的价格感知即可。无需考虑所有海龟和所有处理器的值。

有几种方法可以做到这一点。

如果从结构上绝对确定每个补丁永远不会有多个处理器，您可以这样做：

to check-perceptions
  ask fishers with [arrived-at-processor?] [
    ifelse (price-perception-fisher < [price-perception-processor] of one-of processors-here)
      [perform-transaction]
      [find-another-processor]
  ]
end

processors-here 报告器（请参阅此处）报告代理集。如果您确定每个补丁不能有多个处理器，则意味着此处的一个处理器将不可避免地报告渔民正在访问的处理器，因为它将是唯一填充的处理器processors-here 代理集。

如果您希望避免这种方法，因为当您知道只想引用特定代理时不喜欢使用代理集，则可以采用其他方法添加渔民自己的变量：

fishers-own [
  ; ...
  ; Here there are the other fishers-own variables
  ; ...
  current-processor
]

to return-from-fishing
  if epi-catch >= 1000 or exp-meso-catch >= 750 [
    set current-processor one-of processors
    move-to current-processor
    set arrived-at-processor? TRUE
  ]
end


to check-perceptions
  ask fishers with [arrived-at-processor?] [
    ifelse (price-perception-fisher < [price-perception-processor] of current-processor)
      [perform-transaction]
      [find-another-processor]
  ]
end

这样，current-如果每个补丁有多个处理器，处理器将避免任何歧义，甚至从逻辑角度来看，它也将是一个专门用于识别代理（而不是代理集）的变量。

当然，如果执行了find-another-processor，您需要记住将新处理器分配给current-processor。