решение уравнений с переменными с обеих сторон с 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)