Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

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




  • Prev by Date: Re: problems with series of multiple integrals
  • Next by Date: Re: TeXForm with long expressions
  • Previous by thread: Re: problems with series of multiple integrals
  • Next by thread: Re: TeXForm with long expressions