home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 028 / sqwave.dat < prev    next >
Encoding:
Text File  |  1990-09-15  |  343 b   |  10 lines
  1. ! Fourier series approximation of a square wave
  2. a = 1/2
  3. p = 3.1415925
  4. b(t) = 2*cos(t)/p - 2*cos(3*t)/(3*p)
  5. c(t) = 2*cos(5*t)/(5*p) - 2*cos(7*t)/(7*p)
  6. d(t) = 2*cos(9*t)/(9*p) - 2*cos(11*t)/(11*p)
  7. e(t) = 2*cos(13*t)/(13*p) - 2*cos(15*t)/(15*p)
  8. f(t) = 2*cos(17*t)/(17*p) - 2*cos(19*t)/(19*p)
  9. g(t) = a + b(t) + c(t) + d(t) + e(t) + f(t)
  10.