# Is there any automatic way to use specific font specifically for math? [duplicate]

I am trying to mimic the look of Wolfram|Alpha, which uses the Bitstream fonts Charter (for math and some text) and Vera Sans (for most text and things like units after numbers). Is there any automatic way to achieve this in a formatted notebook (where I am using inline math) without manual changing the font of each portion? For a better idea, take the following screenshot:

Fullform due to request:

 \!$$TraditionalForm\\(\*SqrtBox[\(200$$]\[LineSeparator]\n 200 = 2\\ 2\\ 2\\ 5\\ 5, \\ or\\ \*SuperscriptBox[$$2$$, $$2$$]\\ \*SuperscriptBox[$$5$$, $$2$$]\\ 2\\ $$(when\\ separated\\ into\\ squares)$$, \\ so\\ \*SqrtBox[$$200$$] = $$\((2\\ 5)$$\\ \*SqrtBox[$$2$$] = 10\\ $$\*SqrtBox[\(2$$]$$.$$\)\)\)\)


Is there a way to automatically render the text in Vera while keepin the math in Charter without having to manually format each piece?

## marked as duplicate by Mr.Wizard♦Mar 16 '15 at 23:53

• We would need to know the FullForm of your screenshot to give advice – Mike Honeychurch Mar 16 '15 at 21:54
• Sqrt[200] 200=2 2 2 5 5,or 2^2 5^2 2 (when separated into squares),so \ Sqrt[200]=(2 5) Sqrt[2]=10 Sqrt[2]. – Eric Mar 16 '15 at 21:58
• Eric look up FullForm in the docs. IMO this is what is needed to know how to approach your problem – Mike Honeychurch Mar 16 '15 at 22:56
• Uh, whenever I attempt to copy the output of FullForm, Mathematica crashes. O_o – Eric Mar 16 '15 at 23:11
• Re: crash, that's disturbing. Nevertheless please try copying the output of FullForm as Plain Text and see if it works. – Mr.Wizard Mar 16 '15 at 23:23

If I understand the question you have a Text Cell with inline Cells containing math expressions. The styling can be controlled with style sheets applied to the styles Text and InlineCell. For example:

Produced by:

Which has the Cell code:

Cell[StyleData["InlineCell"],
FontFamily->"Comic Sans MS",
FontSize->17,
FontWeight->"Plain",
FontSlant->"Italic",
FontVariations->{"StrikeThrough"->False,
"Underline"->False},
FontColor->RGBColor[1, 0, 1]]

Cell[StyleData["Text"],
FontFamily->"Times New Roman",
FontSize->16,
FontWeight->"Plain",
FontSlant->"Plain",
FontVariations->{"StrikeThrough"->False,
"Underline"->False},
FontColor->RGBColor[0.6, 0.4, 0.2]]
`