Как распечатать уравнения в Mathematica

Question

Как определить, что формулу не следует вычислять, а отображать в традиционном формате? Вот два примера, где первый отображается, как я хочу, но второй упрощен.

Print["5. ", Limit[f[x]/g[x], x -> a], "=", Limit[f[x], x -> a]/Limit[g[x], x -> a], ", where ", Limit[g[x], x -> a] != 0]; 
Print["7. ", Limit[c, x -> a], "=", c] 

Answer 1

Используйте HoldForm, чтобы распечатать выражение, не оценивая его.

Print["7. ", HoldForm[Limit[c, x -> a]], "=", c] 
(* /*  ^^^^^^^^      */ *) 

Answer 2

Если вы правильно поняли - вы не хотите, чтобы был оценен лимит [c, x -> a]. Стандартный способ остановить что-то из оценки - использовать «Удержание».

Print["7. ", Hold[Limit[c, x -> a]], "=", c] 

Но результат не хорошо:

7. Hold[Limit[c, x -> a]] = c 

HoldForm команда делает трюк - он проводит оценку, но не показывает:

Print["7. ", HoldForm[Limit[c, x -> a]], "=", c] 
    7. Limit[c, x -> a] = c 

Answer 3

Это зависит немного бит на том, что вы хотите сделать, но если вы просто пишете текст, не используйте Print. Вместо этого введите текст напрямую, убедившись, что вы используете ячейку Text, а не ячейку Input. В меню выберите:

Format -> Style -> Text 

Затем введите, что вы хотите, как:

5. Limit[f[x]/g[x], x -> a] == Limit[f[x], x->a]/Limit[g[x], x -> a] where ... 

Выберите выражение, которое вы хотите, чтобы снова преобразовать в TraditionalForm, а затем в меню выберите:

Cell -> ConvertTo -> TraditionalForm 

... и вы должны получить что-то вроде этого:

Вы также можете найти скринкаст на наборные полезно: http://www.wolfram.com/broadcast/screencasts/howtoentermathematicaltypesetting/

Если вы на самом деле пытается произвести вывод TraditionalForm программно (например, с Print) вы могли бы рассмотреть возможность использования и TraditionalForm с HoldForm:

Print[Row[{ 
    "5. ", 
    TraditionalForm[HoldForm[ 
    Limit[f[x]/g[x], x -> a] == Limit[f[x], x -> a]/Limit[g[x], x -> a]]], 
    " where ..." 
    }]]