Можно ли выводить символические выражения в форме TeX

Question

Скажем, я беру производную от выражения в R:

 D(expression((x^3)/(2*(x+1))),"x")

Выход:

3 * x^2/(2 * (x + 1)) - (x^3) * 2/(2 * (x + 1))^2

Мне было интересно, если этот вывод может быть показан на экране в форме TeX, которая легче читается.

Благодарю.

Answer 1

Проверьте Рякас:

> library(Ryacas)
> yacas("TeXForm(3 * x^2/(2 * (x + 1)) - (x^3) * 2/(2 * (x + 1))^2)", 
+   retclass = "unquote")
$\frac{3 x ^{2}}{2 \left( x + 1\right) }  - \frac{2 x ^{3}}{\left( 2 \left( x + 1\right) \right)  ^{2}} $

Редактор

> library(Ryacas)
> x <- Sym("x")
> y <- (x^3)/(2*(x+1))
> dy <- deriv(y, x)
> dy <- Simplify(dy)
> fmt <- sprintf("TeXForm(%s)", dy)
> yacas(fmt, retclass = "unquote")
$\frac{\left( 2 x + 3\right)  x ^{2}}{2 \left( x ^{2} + 2 x + 1\right) } $

Answer 2

Ну, стандартные подпрограммы построения текста принимают аргументы типа "выражение" и интерпретируют их с помощью правил, подобных TeX. Смотрите? Plotmath для получения дополнительной информации. В вашем случае вы можете использовать что-то вроде этого:

plot(1:10, 1:10, type = "n")
text(5, 5,  D(expression((x^3)/(2*(x+1))),"x"))