Need just enough underbars
- To: mathgroup at smc.vnet.net
- Subject: [mg18328] Need just enough underbars
- From: Patrick Reany <reany at xroads.com>
- Date: Sun, 27 Jun 1999 15:11:20 -0400
- Organization: Crossroads Communications
- Sender: owner-wri-mathgroup at wolfram.com
I'm trying to use underbars to distinguish new variables from old in a
differential eqn of state under a change of independent variables. I
want all upper case letters to have an underbar in the new form. Some
already have the underbar while others do not. How do I add the
underbars to the ones that do not have them while not adding another
underbar to the ones that already do. Below is an example form derived
by using FullForm[]:
Equal[Plus[Times[j,P],HoldForm[D[UnderBar[T],UnderBar[P]]],
Times[-1,T,HoldForm[D[UnderBar[V],UnderBar[U]]]]],0]
where one 'P' and one 'T' need to have the underbar added.
Thanks
Patrick