Как отобразить уравнения в TraditionalForm в Mathematica?

Question

Я хочу использовать Mathematica для печати уравнений в TraditionalForm.

Несмотря на то, что я добился успеха в отношении некоторых простых, я не получил 2 ниже.

Answer 1

Стандартный способ интеграции по региону в MMA:

Integrate[Boole[x^2 + y^2 < r^2] \[Phi][x,y], {x, -r, r}, {y, -r, r}]

MMA не имеет TraditionalForm для этого, поэтому вы должны сделать его самостоятельно:

1) Введите Integrate[\[Phi][x,y],x,y].
2) Измените на традиционную форму (используя ctrl shift -T)
3) Выберите второй интеграл.Сделайте нижний индекс, используя ctrl -_ и x ^ 2 + y ^ 2 <= r ^ 2 в 2D-форме </p>

Что касается второго,так как NormalDistribution не имеет определения TraditionalForm, вы должны ввести его самостоятельно, следуя рецепту Йоды, или сделать определение самостоятельно:

Unprotect[NormalDistribution];
NormalDistribution /: 
   Format[NormalDistribution[m_, s_],TraditionalForm] := \[ScriptCapitalN] [m, s]
Protect[NormalDistribution];

или, чтобысделайте так, чтобы все пошло в обе стороны, используйте пакет Notation .

Answer 2

Я думаю, что вы пытаетесь ввести эти выражения в ваш текст / заметки / презентации в ММА.Вот пример

"\!\(\*SubscriptBox[\(\[Integral]\), \(\\\ \)]\)\!\(\*SubscriptBox[\(\
\[Integral]\), \(\*SuperscriptBox[\(x\), \(2\)] + \
\*SuperscriptBox[\(y\), \(2\)] \[LessEqual] \*SuperscriptBox[\(r\), \
\(2\)]\)]\)\[CapitalPhi](x,y)\[DifferentialD]x\[DifferentialD]y" // \
TraditionalForm

"\!\(\*SubscriptBox[\(X\), \
\(1\)]\)~\[ScriptCapitalN](\!\(\*SubscriptBox[\(\[Mu]\), \
\(1\)]\),\!\(\*SuperscriptBox[SubscriptBox[\(\[Sigma]\), \(1\)], \
\(2\)]\))" // TraditionalForm

Для этого нажатия клавиш:

X, Ctrl - 1 , → , ~ , Esc с с Н Esc , (, Esc м Esc , Ctrl - 1 , → , Esc s Esc , Ctrl - 1 , → , Ctrl 6 2 , → , )

Я оставлю другой вам.