r - R 中 2 个向量的投影

Question

我想计算投影u⟶v

定义:proj(u⟶v)=u⋅v|v|2v

# my 2 vectors 
u<-c(1.5,sqrt(3)/2)
v<-c(2,0)

答案应该如下所示:

[1] 1.5 0.0

Answer 1

不完全确定您在寻找什么。

u <- c(1.5,sqrt(3)/2)
v <- c(2,0)

as.vector( (u %*% v) / (v %*% v) ) * v

产量

[1] 1.5 0.0

你可以把它包装成一个函数

proj <- function(u, v) {
 return(as.vector( (u %*% v) / (v %*% v) ) * v)
}