home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / fourier.def < prev    next >
Text File  |  1987-12-09  |  564b  |  17 lines
  1. DEFINITION MODULE Fourier ;
  2. (* 
  3.    (C) Michael Kowalik & PASCAL INTERNATIONAL
  4.  
  5.    x   - vector of points projected on abscissa
  6.    y   - vector of points projected on ordinate
  7.    a,b - vectors of Fourier's coefficients
  8.    a[i]*cos(2*pi*x[i]/T)
  9.    b[i]*sin(2*pi*x[i]/T)
  10.  *)
  11. EXPORT QUALIFIED Interpolation, RungeFaltung, DFT, FFT;
  12. PROCEDURE Interpolation(VAR x, y, a, b : ARRAY OF REAL);
  13. PROCEDURE RungeFaltung(VAR x, y, a, b : ARRAY OF REAL);
  14. PROCEDURE DFT(VAR x, y, a, b : ARRAY OF REAL);
  15. PROCEDURE FFT(VAR x, y, a, b : ARRAY OF REAL)
  16. END Fourier.
  17.