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

Question

这是方程 a <- x * t - 2 * x .我想为 t 解这个方程.
所以基本上，设置 a = 0并求解 t .我是新来的 R用于求解方程的软件包。我需要解决复杂根的包。我使用的原始方程有实根和虚根。我只是在寻找代数解决方案，而不是数字解决方案。

我试过:

a <- x * t - 2 * x
solve(a,t)

我遇到了一个错误:

Error in solve.default(a, t) : 'a' (1000 x 1) must be square

Answer 1

您可以使用 Ryacas得到解作为 x 的表达式:

library(Ryacas)

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

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

如您所见，解决方案是 t=2 (假设 x 不为零)。

让我们尝试一个不那么简单的例子:

Solve(x*t-2*x == 1, t)
# Yacas vector:
# [1] t == (2 * x + 1)/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