Пересаживаюсь с MathCAD на Wolfram Mathematica

[lazy-student]

Приветствую!

Собственно, сабж. Вольфрам хорош, все нравится.
Интересует, как показать промежуточные вычисления, как это делается в маткаде с помощью float и explicit.

Например:
Задаю переменные



Свожу все в формулу, прописываю explicit (развернуть промежуточные вычисления) и float (значащие цифры, округление)

Потом скрываю ключевые слова и привожу все в человеческий вид


Вот что-то подобное мне и надо сделать в вольфраме. Чтобы готовый расчет сразу копировать в MathType или ТеХ. Как это сделать?

[Vince Diesel]

Есть команды типа Trace, TraceScan и т.п., но они не дают того, что надо.

Есть также команда TexForm, которая переводит выражение (с некоторыми ограничениями) в формат TeX. Например, знак умножения * эта команда заменяет на пробел. Что логично для буквенных выражений. Вместо //TeXForm можно переделать выражение в строку с помощью //ToString.

Такое

a := 5; b := a^2; c := a^3; 
Reap[TraceScan[Sow, s = b*c]][[2, 1]] /. HoldForm -> Defer

после выделения результат и нажатия Ctrl+Shift+I дает

{s = b*c, Set, b*c, Times, b, a^2, Power, a, 5, 2, 5^2, 25, c, a^3, Power, a, 5, 3, 5^3, 125, 5*125, 3125, s = 3125, 3125}

Откуда, в приципе, можно что-то получить, удаляя лишнее и добавляя знаки равенства.