用R求解两个未知的非线性方程

Question

假设我有以下等式：

 |2x+4y-9|=54
 |5x-6y+14|=21  

如何解决 x 和 y 的这些方程式。我想用R。

解决这些方程式

Answer 1

这样的事情怎么样：

A <- matrix(c(2,4,5,-6),nrow=2,byrow=TRUE)
b <- c(54,21)

ex <- c(-9,14)

z1 <- solve(A,b-ex)
z2 <- solve(A,-b-ex)

z3 <- solve(A,c(-b[1],b[2])-ex)
z4 <- solve(A,c(b[1],-b[2])-ex)

z1;z2;z3;z4

检查结果是否符合要求

A%*%z1+ex
     [,1]
[1,]   54
[2,]   21

以及其他变体

A%*%z2+ex
A%*%z3+ex
A%*%z4+ex

附录：

解决方程组的更有效方法是

B <- cbind(b,-b,c(-b[1],b[2]),c(b[1],-b[2]) )

solve(A,B-ex)