Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Fourier series with Mathematica. Help!

  • To: mathgroup at
  • Subject: [mg12779] Fourier series with Mathematica. Help!
  • From: Peter Neumann <peter at>
  • Date: Wed, 10 Jun 1998 03:04:39 -0400
  • Organization: Rechenzentrum der TU Clausthal
  • Sender: owner-wri-mathgroup at

I've got problems to calculate FourierTrigSeries from periodic functions
containing UnitStep-Expressions under Mathematica 3.0.  (I now I have
to load <<Calculus`DiracDelta` first.)

I attached an example file containung two examples. The first, a
rectangular function using UnitStep, causes no proplems. The second
example combining Sin and UnitStep fails to integrate. But the
integration could be done easily by hand.

Can anybody help me?

************ InputForm ******************


f1 = 	UnitStep[t-Pi/4] - UnitStep[t-3*Pi/4] 
	-UnitStep[t-5*Pi/4] + UnitStep[t-7*Pi/4];


FourierTrigSeries[f1, {t,0,2*Pi}, 5]

f2 = 	(1+3*Sin[t])*UnitStep[-1-3*Sin[t]] 

Plot[f2, {t,0,2*Pi}]

FourierTrigSeries[f2, {t,0,2*Pi}, 5]

************ End of Example *****************

  • Prev by Date: Re: who has written a BEM code for an airfoil?
  • Next by Date: Re: Multiplication or separate expressions when evaluating lines in a cell?
  • Previous by thread: NDSolve Problems for evaluating specific values
  • Next by thread: arrrgh - algebraic manipulation