Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>