Automatically Emphasize Relevant Variables and Functions

Mathematica 7 uses heuristics to identify leading variables and functions.

In[1]:=

TraditionalForm[Expand[(x + y + 1/z)^5]]

Out[1]//TraditionalForm=

In[2]:=

TraditionalForm[Expand[(x + y + a/z)^5]]

Out[2]//TraditionalForm=