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: [mg18367] Re: Need just enough underbars
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 30 Jun 1999 14:13:30 -0400
  • Organization: Universitaet Leipzig
  • References: <7l5sf2$ih2@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

helps

ubn[s:(_Symbol|_UnderBar),n_Integer]:=Nest[UnderBar,s,n]

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 ?

Regards
  Jens


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??