       Re: TeXForm and negative exponents

• To: mathgroup at smc.vnet.net
• Subject: [mg32252] Re: TeXForm and negative exponents
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Wed, 9 Jan 2002 23:37:05 -0500 (EST)
• Organization: Universitaet Leipzig
• References: <a1gv2g$n6g$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,

Unprotect[Times]

Format[a_*E^(b_), TeXForm] :=
SequenceForm[a, "\\,\\exp\\left({", b, "}\\right)"]

Protect[Times]

should do that.

Regards
Jens

Jens Dreger wrote:
>
> Hi all!
>
> I want to save some expressions in TeX-format like so:
>
>   Put[TeXForm[expr],file]
>
> where expr contains exponentials with negative exponents
> which I want to show up in the output as _negative_.
> For some reason, Mathematica always "simplifies" the
> expression so it only contains positive exponents.
>
> Example:
>
>  In:= TeXForm[1/(1 + 2 Exp[-3 t])]
>  Out:= \frac{1}{1 + \frac{2}{e^{3\,t}}}
>
> Ok, so I thought, HoldForm might help:
>
>  In:= TeXForm[HoldForm[(1 + 2 Exp[-3 t] )]]
>  Out:= 1 + 2\,\exp (-3\,t)
>
> Great, only my expression does not contain Exp[], but
> the 2d form. In that case, HoldForm does not seem to do
> the trick...
>
>                                 1
>  In:= TeXForm[HoldForm[--------------]
>                           (1+2 e^{-3 t})
>
>  Out:= \frac{1}{1 + \frac{2}{e^{3\,t}}}
>
> The output I want is:
>
>  \frac{1}{1 + 2 e^{-3 t}}
>
> Wrapping StandardForm around expr does seem to help,
> but then the TeX-Output contains all kinds of special
> commands, which I don't want. In this small example
> it's ok, but not on the large expressions.
>
> Is there an easy way, to get TeXFrom to do what I intend?
>
> Thanks a lot in advance!
>
> Jens.



• Prev by Date: Re: Holding Arguments in a Second Argument List
• Next by Date: Re: Holding Arguments in a Second Argument List
• Previous by thread: TeXForm and negative exponents
• Next by thread: Holding Arguments in a Second Argument List