Re: Need just enough underbars
- To: mathgroup at smc.vnet.net
- Subject: [mg18347] Re: [mg18328] Need just enough underbars
- From: "Carl K.Woll" <carlw at fermi.phys.washington.edu>
- Date: Wed, 30 Jun 1999 14:13:19 -0400
- Organization: Department of Physics
- References: <199906271911.PAA19070@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Patrick,
Why don't you give UnderBar the attribute Flat, as in
SetAttributes[UnderBar,{Flat}]
This way repeated applications of UnderBar will just disappear, that is,
UnderBar[UnderBar[t]] will become UnderBar[t].
Carl Woll
Physics Dept
U of Washington
Patrick Reany wrote:
> 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