如何對 R 中的數學表達式求平方？

Question

我有一個數學表達式是；

> myexp <- expression(x^2 + 2*x + 1)
> 
> myexp

expression(x^2 + 2 * x + 1)

我想對表達式求平方，但是當我運行myexp**2或myexp^2時它不起作用

我想要得到的是這個；

expression(x^4 + 4 * x^3 + 6 * x^2 + 4 * x + 1)

我們如何在 R 中做到這一點？

提前致謝。

Answer 1

R 中的“表達式”不是數學表達式，而是調用、符號等的列表。請參閱?expression的幫助文件。

對於你想要完成的事情，我相信你需要多項式polynom 。

myexp <- polynom::polynomial(c(1,2,1))
myexp^2

## 1 + 4*x + 6*x^2 + 4*x^3 + x^4 

Answer 2

一種選擇是Ryacas package，它將使用多個變量：

Ryacas::yac_expr("Expand((x^2 + y^2 + 3*x + 3)^2)")
#> expression(x^4 + 6 * x^3 + (2 * y^2 + 15) * x^2 + (6 * y^2 + 
#>     18) * x + y^4 + 6 * y^2 + 9)