如何使用Tcl脚本计算每列的平均值

# 定义一个二维列表，表示数据表格
set data {
    {1 2 3}
    {4 5 6}
    {7 8 9}
}

# 获取数据表格的列数
set numColumns [llength [lindex $data 0]]

# 定义一个列表，用于存储每列的和
set columnSums [lrepeat $numColumns 0]

# 遍历数据表格，累加每列的值
foreach row $data {
    foreach {index value} $row {
        lset columnSums $index [expr {[lindex $columnSums $index] + $value}]
    }
}

# 计算每列的平均值
set columnAverages {}
foreach sum $columnSums {
    lappend columnAverages [expr {$sum / [llength $data]}]
}

# 输出每列的平均值
foreach average $columnAverages {
    puts "平均值：$average"
}