Re: Pattern Matching for Exponentials
- To: mathgroup at smc.vnet.net
- Subject: [mg67505] Re: [mg67502] Pattern Matching for Exponentials
- From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
- Date: Thu, 29 Jun 2006 00:09:02 -0400 (EDT)
- References: <200606280752.DAA03521@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
On 28 Jun 2006, at 16:52, Rick Eller wrote:
>
> I am looking for a pattern-matching replacement rule which will
> transform exponential functions of the form exp(n i t) into
> (1/(n^2-1))exp(n i t) where i = sqrt[-1]. For example, exp(2 i t)
> should convert to (1/3)exp(2 i t). I've tried the following code
> without
> success :
>
> In: Exp[2 i t] /. Exp[n_ i t] -> Exp[n i t]/(n^2-1)
>
> Out: e^2 i t
>
> I would appreciate any suggestions as to how this code should be
> modified.
>
> Thanks,
>
> Rick Eller
>
First of all, in Mathematica Sqrt[-1] can be input as I (capital
letter) or as \[ImaginaryI] but never as i. As for your question, you
should look at the FullForm of the expression you are trying to match
and the FullForm of the pattern you are using and you will see why
there is no Match. Here are a couple of possible solutions:
Unevaluated[Exp[2*I*t]] /. HoldPattern[Exp[(n_)*I*t]] ->
Exp[n*I*t]/(n^2 - 1)
(1/3)*E^(2*I*t)
Exp[2*I*t] /. HoldPattern[E^((Complex[0, n_])*t)] ->
Exp[n*I*t]/(n^2 - 1)
(1/3)*E^(2*I*t)
Andrzej Kozlowski
Tokyo, Japan
- References:
- Pattern Matching for Exponentials
- From: "Rick Eller" <reller@bigpond.com>
- Pattern Matching for Exponentials