Re: Print TraditionalForm

*To*: mathgroup at smc.vnet.net*Subject*: [mg126649] Re: Print TraditionalForm*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Tue, 29 May 2012 05:44:25 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201205280910.FAA26780@smc.vnet.net>

t = (Subscript[c, v1] Subscript[n, 1] Subscript[T, 1] + Subscript[c, v2] Subscript[n, 2] Subscript[T, 2])/ (Subscript[c, v1] Subscript[n, 1] + Subscript[c, v2] Subscript[n, 2]); Style["T = " <> ToString[t, TraditionalForm]] // TraditionalForm Bob Hanlon On Mon, May 28, 2012 at 5:10 AM, Themis Matsoukas <tmatsoukas at me.com> wrote: > I want to typeset a math equation that is is printed in TraditionalForm. Here is an example: > > t = (Subscript[c, v1] Subscript[n, 1] Subscript[T, 1] + > Subscript[c, v2] Subscript[n, 2] Subscript[T, 2])/( > Subscript[c, v1] Subscript[n, 1] + Subscript[c, v2] Subscript[n, 2]); > > Print["T" // TraditionalForm, " = ", t] > > The Print statement gives me the equation I want but in Courier font, which is default for Print. If I select the output cell and use the notebook interface to Convert to TraditionalForm, then the equation is printed in the default font for text, which is really how I want it. Is it possible to obtain the final result using only Mathematica expressions, without having to go through the notebook interface? >

**References**:**Print TraditionalForm***From:*Themis Matsoukas <tmatsoukas@me.com>