测试TCL中是否存在矩阵对象

# 创建一个3x3的矩阵数组
array set matrix {
    {0,0} 1
    {0,1} 2
    {0,2} 3
    {1,0} 4
    {1,1} 5
    {1,2} 6
    {2,0} 7
    {2,1} 8
    {2,2} 9
}

# 访问矩阵元素
puts "matrix[1,1] = $matrix(1,1)"

# 修改矩阵元素
set matrix(1,1) 10

# 遍历矩阵数组
foreach {index value} [array get matrix] {
    puts "matrix[$index] = $value"
}

# 创建一个一维矩阵列表
set vector [list 1 2 3]

# 访问矩阵元素
puts "vector[1] = [lindex $vector 0]"

# 修改矩阵元素
lset vector 1 4

# 遍历矩阵列表
foreach value $vector {
    puts "vector[] = $value"
}