Re: Print TraditionalForm
- To: mathgroup at smc.vnet.net
- Subject: [mg126664] Re: Print TraditionalForm
- From: Themis Matsoukas <tmatsoukas at me.com>
- Date: Wed, 30 May 2012 04:07:58 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
This does not give me exactly what I want because it produces output in italics, not in TraditionalForm and does not work with integrals or other math. However, I looked a bit further into ExpressionCell and came up with the following that works nicely:
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]);
CellPrint[
TextCell[Row[{"The equation ",
ExpressionCell[T == t] // TraditionalForm,
" is used to calculate blah blah blah."}], "Text"]]
Thanks!