Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

[Fwd: Fourier Series Expansions and it's Coefficients question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85262] [Fwd: [mg85198] Fourier Series Expansions and it's Coefficients question
  • From: mante <claude.mante at univmed.fr>
  • Date: Tue, 5 Feb 2008 05:54:25 -0500 (EST)

Hello,
        ihis solution looks like your example :


y = {14, 18.7, 9, 4.1, 6.7, 6, 6.3, 8.4, 4, 2.9};
x = Range[0, Length@y];

f[z_] := Piecewise[
   Table[{y[[i]], x[[i]] < z < x[[i + 1]]}, {i, Length@y}]];

T = (-First@x + Last@x);
co[n_] = 2 Integrate[f[t] Cos[n 2 \[Pi]  t/T], {t, First@x, Last@x}]/
    T;
si[n_] = 2 Integrate[f[t] Sin[n 2 \[Pi]  t/T], {t, First@x, Last@x}]/
    T;
A0 = Integrate[f[t] , {t, First@x, Last@x}]/T;
approx[t_] :=
  A0 + Sum[co[k] Cos[k 2 \[Pi]  t/T] + si[k] Sin[k 2 \[Pi]  t/T], {k,
     10}];

Plot[{f[t], approx[t]}, {t, First@x, Last@x}]

-- 
*********************************
    Claude Manté

UMR CNRS 6117 LMGEM
http://www.com.univ-mrs.fr/LMGEM/

Centre d'Océanologie de Marseille
Campus de Luminy, Case 901
13288 MARSEILLE Cedex 09
tel : (+33) 491 829 127
fax : (+33) 491 829 119

!! New mail adress: !!
   ----------------
 claude.mante at univmed.fr

********************************* 



  • Prev by Date: Re: Possible bug in ListAnimate[] or Manipulate[] v6.0
  • Next by Date: calculating an inverse matrix
  • Previous by thread: Re: pattern matching against the Dt function?
  • Next by thread: calculating an inverse matrix