Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

HELP!!!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31128] HELP!!!
  • From: "alfaomega" <che_dio_ve_furmini at hotmail.com>
  • Date: Fri, 12 Oct 2001 03:36:45 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I'm writing this little program to approximate a function with the
FourierTrigSeries.
Everything's ok, but i can't calculate the maximum of each series term (I
need it to evaluate the error... what's wrong with the last "While"?

Thank you in advance,
alphaomega.



<<Calculus`FourierTransform`

y[t_]:= If[0<t<Pi, 1, 0]

funz=Plot[y[t], {t,0,2Pi}, PlotStyle->{Thickness[0.0065],RGBColor[1,0,0]}]

f[n_]=FourierTrigSeries[y[t],{t,0,2Pi},n]

FourierTrigSeries[If[0 < t < Pi, 1, 0], {t, 0, 2 Pi}, n]

Do [ i=0;
 While [i<11,
  gi=f[i];
  ser=Plot[gi, {t,0,2Pi}, PlotStyle->{Thickness[0.0065],RGBColor[0,0,1]}];
  Show [ser,funz];
  i=i+2;];
 ]

i=0

rapp=1

While [rapp>0.1,
  si=-f[i];
  maxf=FindMinimum[si,{t,0.1,0,1}];
  rapp=(maxf[[1]]-1);
  i=i+1]





  • Prev by Date: Re: displaying unevaluated arguments
  • Next by Date: Re: What variables are in a function and displaying surds
  • Previous by thread: System of BVP
  • Next by thread: FindMinimum