NetLogo直方图数据

Question

我试着在雅虎( Yahoo )上向NetLogo用户组发布这篇文章，但没能成功地让这个帖子被接受。所以我在这里试着。

NetLogo可以绘制直方图。是否有任何方法访问直方图数据，即为直方图图生成的数据？谢谢。

Answer 1

假期快乐，拉斯！

我不认为能得到这些价值。尽管如果您想为数据实现自己的直方图，您可以使用以下内容：

to-report calc-histogram [ aList numBars aMaxValue ]
  let minValue min aList
  let interval (aMaxValue - minValue) / numBars
  let hist []
  foreach n-values numBars [?] [
   let lowerBound minValue + (? * interval)
   let upperBound lowerBound + interval
   let x (lowerBound + upperBound) /  2
   let y length filter [? >= lowerBound and ? < upperBound] aList
   set hist lput (list x y ) hist
  ]
  report hist 
end

示例用法：

observer> calc-histogram [0 1 18 2 3 4 5 6 7 7 7 9 10 7 15 7 17 18 19 ] 5 20
observer: [[2 4] [6 8] [10 2] [14 1] [18 4]]