Tag Info

New answers tagged

1

The most direct way is to customize the StyleSheet. To create a new StyleSheet to use with Mathematica, open a notebook and select Edit Stylesheet... from the Format menu. This brings up a template, and existing styles can be modified by choosing the style from the pull-down menu on the top left of the template. The style is inserted in the template with ...


3

Mathematica keeps track of a ScriptLevel to control the size of fractions and exponents. Normally the script level increases by one in the numerator and denominator of a fraction, unless the option AllowScriptLevelChange -> False is set. The script level also increases for each exponent. When the ScriptLevel increases, the font size is changed by the ...


1

TraditionalForm and DisplayForm are just "wrappers". If you look at FullForm of expressions compared in question, you'll see that although they look the same, internally they are represented differently: MyObject /: MakeBoxes[MyObject[x_, y_], TraditionalForm] := If[x === y, SuperscriptBox["α", 1], SuperscriptBox["α", 2]] TraditionalForm[MyObject[1, ...


1

You could convert the expression to string after applying all your rules, and then replace any spaces using StringReplace: expr = D[y[x, t], {x, 2}] + D[y[x, t], x] + Sin[x] + y[x, t] - y[x, t]^3; rules = {y -> (u[#] &), u[x]^n_ -> u^n, u[x] -> u, u'[x] -> ux, u''[x] -> uxx}; postprocessing = ToLowerCase[ToString[InputForm[#]]] ~ ...


1

CoVar[RVfuncs_, dist_] := Expectation[RVfuncs[[1]] RVfuncs[[2]], dist] - (Expectation[RVfuncs[[1]], dist] Expectation[RVfuncs[[2]], dist]); \[CapitalSigma] = {{\[Sigma]^2, \[Sigma]1}, {\[Sigma]1, \[Sigma]^2}}; \[Mu] = {a, b}; f = CoVar[{x1 + 3 x2, 3 x2 - 0.4 x1}, {x1, x2} \[Distributed] MultinormalDistribution[\[Mu], \[CapitalSigma]]]; Plot[ ...


1

You need to declare "sigma" as a variable so that plot can act on it. Σ[σ_] := {{σ^2, σ1}, {σ1, \σ^2}};


5

You need to specify formatting directives for the "Print" style. Adding this cell to the custom style sheet: Cell[StyleData["Print"], FontSize->24, FontColor->RGBColor[1, 0, 0]] Should produce: There is also a "MSG" style for messages: Cell[StyleData["MSG"], FontWeight->"Bold", FontColor->RGBColor[1, 0.5, 0]] Both of these can be ...



Top 50 recent answers are included