R 使用“的右侧”;雅卡斯矢量”;作为函数求解后

R 使用“的右侧”;雅卡斯矢量”;作为函数求解后,r,R,我试图用两个方程来解决一个优化问题。但第一个方程的导数将用于第二个方程。正如你在下面看到的,我需要一些介于c和d之间的东西。c将一阶导数设为零,并将y带到右侧,y用于第二个等式 x问题是要求提取右侧“(60-x)/2)”并将其用作函数 库(Ryacas) x问题是要求提取右侧“(60-x)/2)”并将其用作函数 库(Ryacas) 你可以做: x <- Sym("x") y <- Sym("y") a <- (60-x-y)*y b <- deriv(a, y) c &l

我试图用两个方程来解决一个优化问题。但第一个方程的导数将用于第二个方程。正如你在下面看到的,我需要一些介于c和d之间的东西。c将一阶导数设为零,并将y带到右侧,y用于第二个等式


x问题是要求提取右侧“(60-x)/2)”并将其用作函数

库(Ryacas)

x问题是要求提取右侧“(60-x)/2)”并将其用作函数

库(Ryacas)
你可以做:

x <- Sym("x")
y <- Sym("y")
a <- (60-x-y)*y
b <- deriv(a, y)
c <- Solve(b==0, y)
yacas(paste0("y Where ", c))
# expression((60 - x)/2)
x您可以执行以下操作:

x <- Sym("x")
y <- Sym("y")
a <- (60-x-y)*y
b <- deriv(a, y)
c <- Solve(b==0, y)
yacas(paste0("y Where ", c))
# expression((60 - x)/2)

x哪个包中的
Deriv
函数来自哪个包?哪个包中的
Deriv
函数来自哪个包?
f <- function(x){}
body(f) <- yacas(paste0("y Where ", c))$text