MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Need just enough underbars

  • To: mathgroup at
  • Subject: [mg18367] Re: Need just enough underbars
  • From: Jens-Peer Kuska <kuska at>
  • Date: Wed, 30 Jun 1999 14:13:30 -0400
  • Organization: Universitaet Leipzig
  • References: <7l5sf2$>
  • Sender: owner-wri-mathgroup at




eqn = Equal[
    Plus[Times[j, P], D[UnderBar[T][UnderBar[P]], UnderBar[P]], 
      Times[-1, T, D[UnderBar[V][UnderBar[U]], UnderBar[U]]]], 0]

eqn /. a_UnderBar :> ubn[a, 1]

you ?


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

  • Prev by Date: Re: writing mathematica data to a tab delimited file??
  • Next by Date: Re: O.D.E in Power Series
  • Previous by thread: Re: Need just enough underbars
  • Next by thread: writing mathematica data to a tab delimited file??