通过从向量的其他元素中减去向量的每个元素来制作矩阵

Posted

技术标签:

【中文标题】通过从向量的其他元素中减去向量的每个元素来制作矩阵【英文标题】:Make matrix by subtracting each element of vector from other element of it 【发布时间】:2022-01-06 22:37:57 【问题描述】:

考虑向量a <- c(17.4, 17.2, 17.0, 16.9, 17.0, 17.4)

如何构建以下矩阵:

 A <-    17.4-17.4   17.2-17.4  17.0-17.4  16.9-17.4  17.0-17.4   17.4-17.4
         17.4-17.2   17.2-17.2  17.4-17.2  16.9-17.2  17.0-17.2   17.4-17.2
         17.4-17.0   17.2-17.0  17.0-17.0  16.9-17.0  17.0-17.0   17.4-17.0
         17.4-16.9   17.2-16.9  17.0-16.9  16.9-16.9  17.0-16.9   17.4-16.9
         17.4-17.0   17.2-17.0  17.0-17.0  16.9-17.0  17.0-17.0   17.4-17.0
         17.4-17.4   17.2-17.4  17.0-17.4  16.9-17.4  17.0-17.4   17.4-17.4

我想从第一个元素中减去所有向量元素并将结果存储在矩阵 A 的第一行中,然后从第二个元素中减去所有向量元素并将结果存储在矩阵 A 的第二行中,依此类推直到到达向量an的最后一个元素。

最终结果应该是:

A <- 0.0   -0.2   -0.4   -0.5   -0.4   0.0
     0.2    0.0   -0.2   -0.3   -0.2   0.2
     0.4    0.2    0.0   -0.1    0.0   0.4
     0.5    0.3    0.1    0.0    0.1   0.5
     0.4    0.2    0.0   -0.1    0.0   0.4
     0.0   -0.2   -0.4   -0.5   -0.4   0.0

【问题讨论】:

【参考方案1】:

使用外部

a <- c(17.4, 17.2, 17.0, 16.9, 17.0, 17.4)
t(outer(a,a,`-`))

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]  0.0 -0.2 -0.4 -0.5 -0.4  0.0
[2,]  0.2  0.0 -0.2 -0.3 -0.2  0.2
[3,]  0.4  0.2  0.0 -0.1  0.0  0.4
[4,]  0.5  0.3  0.1  0.0  0.1  0.5
[5,]  0.4  0.2  0.0 -0.1  0.0  0.4
[6,]  0.0 -0.2 -0.4 -0.5 -0.4  0.0

【讨论】:

还有outer(a, a, FUN=\(x,y) y-x) 的变化。【参考方案2】:

这里有几个选项,

sapply(a, function(i) i-a)

matrix(Reduce(`-`, expand.grid(a,a)), ncol = length(a))

【讨论】:

以上是关于通过从向量的其他元素中减去向量的每个元素来制作矩阵的主要内容,如果未能解决你的问题,请参考以下文章

在 C++ 中通过网格/矩阵找到成本优化路径

如何更改向量中元素的值?

有没有一种快速的方法可以只使用一种元素来制作向量的向量?

如何在 C++ 中检索矩阵的每个向量的第一个元素?

Eigen库矩阵和向量的运算

生成两个相关的随机向量