MathGroup Archive 2000

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

Search the Archive

Re: Re: Harmonic Analysis

  • To: mathgroup at
  • Subject: [mg25626] Re: [mg25601] Re: [mg25591] Harmonic Analysis
  • From: Roberto Brambilla <rlbrambilla at>
  • Date: Mon, 16 Oct 2000 03:04:46 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

My idea is to use Coefficient : given

 expr = a00 + a10 f[t] + a01 g[t] + a11 f[t] g[t]+
        a20 f[t]^2 + a21 f[t]^2 g[t] //Expand;
 f[t] = f1 Exp[+j w t] + f1Star  Exp[-j w t]
 g[t] = g1 Exp[+j w t] + g1Star  Exp[-j w t]

I extract exponential coefficient in this way :

In[..]    n=1; Coefficient[expr, Exp[n j w t]]
Out[..]   a10 f1 + a01 g1 + 2 a21 f1 f1Star g1 + a21 f1^2 g1Star

In[..]    n=-2; Coefficient[expr, Exp[n j w t]]
Out[..]   a20 f1Star^2 + a11 f1Star g1Star

Unfortunately it does not work for n=0

Bye, Rob
Roberto Brambilla
Via Rubattino 54
20134 Milano
tel +39.2.2125.5875
fax +39.2.2125.610
rlbrambilla at

  • Prev by Date: solve(2 A + 2 B +D )*sin(theta)=0
  • Next by Date: Re: integral of Bessel function, bug in Mathematica 4.0
  • Previous by thread: solve(2 A + 2 B +D )*sin(theta)=0
  • Next by thread: How to Import Numbers with + in the Exponential?