1
$\begingroup$

This question already has an answer here:

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: Math and text both using charter font

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?

$\endgroup$

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

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ We would need to know the FullForm of your screenshot to give advice $\endgroup$ – Mike Honeychurch Mar 16 '15 at 21:54
  • $\begingroup$ 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]. $\endgroup$ – Eric Mar 16 '15 at 21:58
  • $\begingroup$ Eric look up FullForm in the docs. IMO this is what is needed to know how to approach your problem $\endgroup$ – Mike Honeychurch Mar 16 '15 at 22:56
  • $\begingroup$ Uh, whenever I attempt to copy the output of FullForm, Mathematica crashes. O_o $\endgroup$ – Eric Mar 16 '15 at 23:11
  • $\begingroup$ Re: crash, that's disturbing. Nevertheless please try copying the output of FullForm as Plain Text and see if it works. $\endgroup$ – Mr.Wizard Mar 16 '15 at 23:23
0
$\begingroup$

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:

enter image description here

Produced by:

enter image description here

Which has the Cell code:

Cell[StyleData["InlineCell"],
 MenuSortingValue->10000,
 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]]
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.