Der Epina Delphi-Kurs bietet Ihnen eine allgemeine Einführung in das Programmieren mit Delphi/Pascal. Mit vielen ausgearbeiteten Beispielen können Sie direkt in die Delphi-Programmierung einsteigen. Mehr dazu finden Sie hier....

Programm-Header

 
(********************************************************************)
(*                                                                  *)
(*                                                                  *)
(*                         F O U R I E R                            *)
(*                          Version 1.4                             *)
(*                                                                  *)
(*     Programmierer: N. N.                           June 1997     *)
(*                                                                  *)
(*     Last Update: Aug-19, 1999                                    *)
(*                                                                  *)
(********************************************************************)

{revision history:

1.0     [July-15, 1997]
        first release to the public

1.1     [Aug-12, 1997]
        Scaling of Inverse FFT included
        DCOMMON no longer needed for FOURIER
        Direct access to internal data buffer included

1.2.    [Apr-08, 1998]
        FOURIER now available for C++Builder 3.0

1.3.    [Aug-17, 1998]
        FOURIER is now available for Delphi 4.0
        new properties Magnitude and MagniMax
        new property Phase
        new function FreqOfLine
        new function RMS
        new properties FourSerSinCoeff and FourSerCosCoeff
        bug fix in PowerSpec: PowerSpec delivered wrong values

}

{$O+}
{$F+}

{--------------------------------------------------------------------}
{-$DEFINE SHAREWARE}
{ This switch is only for testing during the development phase.
  It should be turned off for normal operation                       }
{--------------------------------------------------------------------}

{$IFNDEF SDLBATCH}
  {$IFDEF VER110}
  {$ObjExportAll On}   { this switch is necessary for C++Builder 3.0 }
  {$ENDIF}
  {$IFDEF VER125}
  {$ObjExportAll On}   { this switch is necessary for C++Builder 4.0 }
  {$ENDIF}
{$ENDIF}

unit Fourier;

{--------------------------------------------------------------------}
interface
{--------------------------------------------------------------------}

uses
  classes;

...
...
...
 

{--------------------------------------------------------------------}
implementation
{--------------------------------------------------------------------}

uses
  wintypes, winprocs, dialogs, sysutils;

{$R-}

...
...
...
 
 

Last Update: 2008-09-09