NetLogo中如何对列表元素求和并计算平均值？

嘿，看你现在手动给每个索引位置写一遍map来提取元素，这代码重复度也太高了吧！要是后续需要处理更多位置，那得写多少重复代码呀😅 咱们换个更简洁、可扩展的方式来完成这个需求：

先明确下你的数据结构 #

我猜你的finaltable是个包含10个子列表的集合，每个子列表的长度相同，大概是这样：

set finaltable [
    [1 2 3 4 5 6]
    [7 8 9 10 11 12]
    ... ; 剩下8个同长度的子列表
]

用循环自动处理所有位置 #

我们可以先拿到单个子列表的长度（也就是要计算平均值的位置总数），然后通过循环遍历每个索引，自动完成「提取对应位置元素→求和→算平均值」的流程，还能把结果统一存起来：

# 先获取每个子列表的元素个数（默认所有子列表长度一致）
set total_positions [llength [lindex $finaltable 0]]

# 用来存所有位置的平均值
set all_averages [list]

# 遍历每个位置索引
for {set idx 0} {$idx < $total_positions} {incr idx} {
    # 提取所有子列表的第idx个元素，组成列列表
    set column_values [map {sub_list} $finaltable {item $idx $sub_list}]
    # 计算该列的总和
    set column_sum [expr {[join $column_values +]}]
    # 计算平均值（除以子列表总数10，用10.0保证浮点结果）
    set avg [expr {$column_sum / 10.0}]
    # 把平均值加入结果列表
    lappend all_averages $avg
}

# 如果还是需要单独的变量，直接从结果列表里取就行
set averagec [lindex $all_averages 0]
set averaged [lindex $all_averages 1]
set averagegemiddelderan [lindex $all_averages 2]
set averageunf [lindex $all_averages 3]
# ... 剩下的位置依此类推

为啥这写法更优？ #

• 告别重复代码：不管你有5个还是100个位置，一段循环就能搞定，不用复制粘贴N遍map
• 扩展性拉满：后续子列表长度变了？代码完全不用改，自动适配
• 维护更轻松：求和、平均的逻辑都集中在一处，要调整规则（比如加权平均）直接改这里就行

要是你的finaltable里子列表长度不一样，那得先加个校验，比如只处理所有子列表都存在的索引位置，不过从你现在的代码来看，应该是所有子列表长度统一的情况～

内容的提问来源于stack exchange，提问作者Amber