将 cos^..(...) 替换为 (cos(...))^

Question

我通过 R 运行 WolframAlpha Wolfram Alpha API from R

我的问题是，我需要将 wolfram 输出转换为 R 表达式。我在需要的地方添加了“*”，还有另一个问题 - 测角函数的转换。

例子:

我有: cos^3(5 + 2*x)

我需要得到: (cos(5 + 2*x))^3

有人可以提示我如何实现表达式吗？或者有什么转换包吗？或者有人建议任何其他方式吗？

解决方案 @G。格洛腾迪克

sub("(sin|cos|tan)\\^(\\(?-?\\d+\\)?)", "(function(x) \\1(x)^\\2)", 'cos^3(5 + 2*x)')

Answer 1

定义一个名为 cos^3 的函数，在其周围的原始字符串中插入反引号并求值。

`cos^3` <- function(x) cos(x)^3
s <- sub("cos^3", "`cos^3`", input_string, fixed = TRUE)  # `cos^3`(5 + 2*x)

x <- .5  # test value for x
eval(parse(text = s))
## [1] 0.8852069

如果需要的话，这可以概括一点:

input_string <- "cos^(3)(5+2*x)"
sub("(sin|cos|tan)\\^(\\(?-?\\d+\\)?)", "(function(x) \\1(x)^\\2)", input_string)
## [1] "(function(x) cos(x)^(3))(5+2*x)"