如何求解R中给定变量的方程？

这是您可能需要优化的等式

a：

a=function(x,t) x*t-2*x
optimize(a,lower=-100,upper=100,t=10)
optimize(a,lower=-100,upper=100,x=2)

如果您需要更多帮助，我需要一个可复制的示例。
您可以使用
Ryacas
以
x
的表达式获得解决方案：

library(Ryacas)

x <- Sym("x")
t <- Sym("t")

Solve(x*t-2*x == 0, t)
# Yacas vector:
# [1] t == 2 * x/x

如果您想获得一个作为
x
函数提供解决方案的函数，可以执行以下操作：

solution <- Solve(x*t-2*x == 1, t)
f <- function(x){}
body(f) <- yacas(paste0("t Where ", solution))$text
f
# function (x) 
# (2 * x + 1)/x

解决方案请让您的示例重现：您所说的“解决方案”到底是什么意思？数字还是代数？我应该澄清一下，我想用代数来解它。解是
t=2
。谢谢，这是一个很有用的等式。我需要找出方程什么时候过零，然后我就可以为优化方程求平方来找到解决方案
Solve(x*t-2*x == 1, t)
# Yacas vector:
# [1] t == (2 * x + 1)/x

solution <- Solve(x*t-2*x == 1, t)
f <- function(x){}
body(f) <- yacas(paste0("t Where ", solution))$text
f
# function (x) 
# (2 * x + 1)/x