用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)