r - 用r求解两边都有变量的方程

Question

0.5Q+30 = -0.2Q+100

0.5q+0.2q=100-30

70=0.7q

q=70/0.7

q=100

0.5*100+30

=80

是否有一个软件包可以解决两边都有变量的方程？

Answer 1

一种选择是从左边减去右边，然后用uniroot它来解决它。

#0.5Q+30 = −0.2Q+100
leftside <- function(Q){
   x<- 0.5*Q+30
   return(x)
}

rightside <- function(Q){
   x<- -0.2*Q+100
   return(x)
}

solution<-uniroot(function(Q) {leftside(Q)- rightside(Q) },  lower = 0, upper = 999)
print(solution$root)

leftside(solution$root)