How to display Latin Modern Math font correctly in Mathematica?

Question

I just used Latin Modern Math font to display $\LaTeX$-like formulas in Mathematica. My expected effect is shown as follows:

Using the following code:

Style["f(x)=\!\(\*UnderscriptBox[\(\[Sum]\), \
\(n\)]\)(\!\(\*SuperscriptBox[\(x\), \(n\)]\)/n)", 
 FontFamily -> "Latin Modern Math"]

I get this result:

It doesn't meet my expectation. How can I display formulas in Mathematica like in $\LaTeX$?

Answer 1

Practical solution

Just use MaTeX.

Explanation

There is in fact—more or less—nothing really wrong with what you see. If you compare the same text to the one written in some other word processor (e.g. Word), you will see that the letter glyphs (though not the math and greek symbols*), such as f, x, and n, are the same:

---

Why is this not displayed the same as it is in $\LaTeX$ equations, even though it is supposed to be the correct font? Because Latin Modern Math is a "special" font that contains many (4802) different glyphs, and it is not meant to be used as other typical fonts that you download and use to style your text. You can see all of the glyphs by using, for example, an online font viewer (upload the latinmodern-math.otf file). Look, under the usual Unicode code 0066 which stands for f, there is the up-right character f that you see in the output. But the italic "math-like" one is stored under the Unicode code 01D453:

Therefore, to get the "math-like" characters, you have to type them in using their correct Unicode codes:

Style["\|01d453(\|01d465)=\|01d465/\|01d45b", FontFamily -> "Latin Modern Math"]

Using PrivateFontOptions -> {"OperatorSubstitution" -> False} fixes the display of math symbols:

Style["\|01d453(\|01d465)=\|01d465/\|01d45b", 
 FontFamily -> "Latin Modern Math", 
 PrivateFontOptions -> {"OperatorSubstitution" -> False}]

---

* If you use a text style cell with Latin Modern Math, even the math characters (but not the Greek ones) are rendered correctly:

Answer 2

I have written a Mathematica function (DispLaTeX) that uses ImportString from LaTeX format, and then some postprocessing (converting the Cells, BoxData, and TextData, etc.) It does not use an external library, so it does not produce as nice an output as MaTeX, nor does it implement all of $\LaTeX$, but it is lightweight and does not require installation.

Style[DispLaTeX["$$f\\!(x)=\\sum_n\\left(x^n/n\\right)$$"], FontSize->16, FontFamily->"Latin Modern Math"]

produces

applying InputForm gives

Style[DisplayForm[RowBox[{StyleBox[RowBox[{}]], StyleBox[FormBox[RowBox[{StyleBox["f","I"], "\[NegativeThinSpace]", RowBox[{"(", StyleBox["x","I"],")"}], "\[LongEqual]", UnderscriptBox["\[Sum]", StyleBox["n","I"], LimitsPositioning->False], RowBox[{"(", RowBox[{SuperscriptBox[StyleBox["x","I"],StyleBox["n","I"]], "/", StyleBox["n","I"]}],")"}]}], TraditionalForm]]}]], FontSize -> 16, FontFamily -> "Latin Modern Math"]

Answer 3

Domen has already given a nice explanation for the topic in his answer, I just want to add that, the scope of influence of the encoding issue seems to be limited to the 52 English letters, in other words, though it's not easy to achieve exactly the same effect as $\LaTeX$ in Mathematica, it's not too hard to make the font right, we just need to make a replacement. Here'a possible implementation:

range = 16^^1d434 + Range[0, 51];
(* Notice the h is special: *)
codelst = ReplacePart[range, {34} -> 16^^210e];
rhs = FromCharacterCode[#] & /@ codelst;
lhs = Flatten@{ToUpperCase[#], #} &@Alphabet[];
rule = Thread[lhs -> rhs]

display = Function[expr, 
   Style[MakeBoxes[expr, TraditionalForm] /. rule // DisplayForm, 
    FontFamily -> "Latin Modern Math"], HoldAll];
display[f[x] = Sum[x^n/n, n]]

You can then make the fraction 1D via manual edit:

Answer 4

Try this:

TraditionalForm[Style[f[x] == HoldForm[
\!\(\*UnderscriptBox[\(\[Sum]\), \(n\)]\)x^n/n], FontFamily -> #, 
    FontSize -> 24, Bold]] & /@ {"Tahoma", "TimesNewRoman", 
  "Helvetica",
  "Times", "Courrier", "Arial", "Veranda"}

Have fun!