2

对不起，如果我惹恼了你，但我的老师说这段代码 [1] 不够好，我应该使用代理集而不是单个值。

代码[1]（第一个代码工作得很好）

let temp_ahead [(output-heat + 1)^ Freedom] of patch-ahead 1
let temp_right_ahead [(output-heat + 1)^ Freedom] of patch-right-and-ahead 45 1
let temp_right [(output-heat + 1)^ Freedom] of patch-right-and-ahead 90 1
let temp_right_back [(output-heat + 1)^ Freedom] of patch-right-and-ahead 135 1
let temp_back [(output-heat + 1)^ Freedom] of patch-right-and-ahead 180 1
let temp_left_back [(output-heat + 1)^ Freedom] of patch-left-and-ahead 135 1
let temp_left [(output-heat + 1)^ Freedom] of patch-left-and-ahead 90 1
let temp_left_ahead [(output-heat + 1)^ Freedom] of patch-left-and-ahead 45 1


set temp_ahead_kumulativ  temp_ahead
set temp_right_ahead_kumulativ  (temp_ahead_kumulativ + temp_right_ahead)
set temp_right_kumulativ  (temp_right_ahead_kumulativ + temp_right)
set temp_right_back_kumulativ (temp_right_kumulativ + temp_right_back)
set temp_back_kumulativ  (temp_right_back_kumulativ + temp_back)
set temp_left_back_kumulativ  (temp_back_kumulativ + temp_left_back)
set temp_left_kumulativ  (temp_left_back_kumulativ + temp_left)
set temp_left_ahead_kumulativ  (temp_left_kumulativ + temp_left_ahead)

set propability_number (random-float (temp_left_ahead_kumulativ))

if propability_number < temp_ahead_kumulativ [right 0]
if propability_number < temp_right_ahead [right 45]
if propability_number < temp_right_kumulativ [right 90]
if propability_number < temp_right_back_kumulativ [right 135]
if propability_number < temp_back_kumulativ [right 180]
if propability_number < temp_left_back_kumulativ [left 135]
if propability_number < temp_left_kumulativ [left 90]
if propability_number < temp_left_ahead_kumulativ [left 45]

我的代码 [2]（不能作为代码 [1] 工作，有什么问题？）：

;;all temperatrue-values around the turtle saved in list
set temperature_values [(output-heat + 1) ^ Freedom] of neighbors


;;build cumulative value of temperatures and put each value in list
let tempsum 0
set tempsum_list []
foreach temperature_values
  [set tempsum (tempsum + ? )
   set tempsum_list lput tempsum tempsum_list
  ]


;;create a random number between 0 and the last tempsum-value
let probability_number random-float tempsum + 1


if probability_number < item 0 tempsum_list
  [left 45]
if (probability_number < item 1 tempsum_list)
  [left 90]
if (probability_number < item 2 tempsum_list)
  [left 135]
if (probability_number < item 3 tempsum_list)
  [right 180]
if (probability_number < item 4 tempsum_list)
  [right 135]
if (probability_number < item 5 tempsum_list)
  [right 90]
if (probability_number < item 6 tempsum_list)
  [right 45]
if (probability_number < item 7 tempsum_list)
  [right 0]

在代码 [2] 中，我尝试使用代理集，但结果看起来不像代码 [1] 中的结果。在 Code[1] 中，我的海龟正在创建很好的 huddles，但在 Code[2] 中它们不会那样做。我有点绝望……如果有人问的话。海龟应该以更高的概率移动到“输出热量”值较高的补丁。

4

1 回答 1

2

这条线set propability_number (random-float (temp_left_ahead_kumulativ))不做同样的事情let probability_number random-float tempsum + 1。

做一些测试——在你创建probability_number 后打印它，运行它大约10 次，看看数字是否符合你的预期。

您的if陈述也有问题，正如您之前的问题所涵盖的那样，我如何为每个动作设置概率？. 同样，最好的学习方法是做一些测试，看看事情是如何运作的。if和之间的区别ifelse对于让你的代码做你期望的事情非常重要。

于 2015-11-07T11:40:34.753 回答