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

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

solving equations with variables on both sides with r

r

uniroot