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!