Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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?
>



  • Prev by Date: Re: 'Nother Inverse Function Question
  • Next by Date: how to add graphics options in a plot which is already produced and has a manipulator
  • Previous by thread: Print TraditionalForm
  • Next by thread: Re: Print TraditionalForm