Question

为了解决我的线性方程组，我遇到了一些麻烦。

我的示例中有三个3D点（A，B，C），我想自动解决我的系统问题。我想用这3点创造一架飞机。这是非常简单的手动（数学），但我不明白为什么我编码时没有解决我的问题......

我有一个笛卡尔方程组，它是一个平面方程：ax + by + cz + d = 0

xA x + yA y + zA * z + d = 0 #point A

xB x + yB y + zB * z + d = 0 #point B

等

我使用矩阵，例如A=(0,0,1); B=(4,2,3)和C=(-3,1,0)。通过手动求解，我在这个例子中得到了这个解决方案：x + 3y-5z + 5 = 0。

要在R中解决它：我想使用solve()。

A <- c(0,0,1)
B <- c(4,2,3)
C <- c(-3,1,0)
res0 <- c(-d,-d,-d) #I don't know how having it so I tried c(0,0,0) cause each equation = 0. But I really don't know for that !

#' @param A vector 3x1 with the 3d coordinates of the point A
carteq <- function(A, B, C, res0) {
   matrixtest0 <- matrix(c(A[1], A[2], A[3], B[1], B[2], B[3],C[1], C[2], C[3]), ncol=3) #I tried to add the 4th column for solving "d" but that doesn't work.
   #checking the invertibility of my matrix
   out <- tryCatch(determinant(matrixtest0)$modulus<threshold, error = function(e) e)#or out <- tryCatch(solve(X) %*% X, error = function(e) e)
   abcd <- solve(matrixtest0, res0) #returns just 3 values
   abcd <- qr.solve(matrixtest0, res0) #returns just 3 values
}

这不是好方法......但我不知道如何在我的问题中添加“d”。

我需要的return是：返回（a，b，c，d）

我觉得我的问题很经典而且容易，但是我没有找到像solve（）或qr.solve（）这样可以解决我的问题的函数......

Answer 1

你的解决方案实际上是错误的：

A <- c(0,0,1)
B <- c(4,2,3)
C <- c(-3,1,0)

CrossProduct3D <- function(x, y, i=1:3) {
  #http://stackoverflow.com/a/21736807/1412059

  To3D <- function(x) head(c(x, rep(0, 3)), 3)
  x <- To3D(x)
  y <- To3D(y)

  Index3D <- function(i) (i - 1) %% 3 + 1

  return (x[Index3D(i + 1)] * y[Index3D(i + 2)] -
            x[Index3D(i + 2)] * y[Index3D(i + 1)])
}



N <- CrossProduct3D(A - B, C - B)
#[1]   4   2 -10
d <- -sum(N * B)
#[1] 10

#test it:

crossprod(A, N) + d
#     [,1]
#[1,]    0

crossprod(B, N) + d
#     [,1]
#[1,]    0

crossprod(C, N) + d
#     [,1]
#[1,]    0

用R求平面三维方程求解线性方程组

1 个答案: