Class TForm1 (unit Ufft)

Inherits from

TForm

Constructors



Functions

procedure Draw(var f : realarray);


procedure FormCreate(Sender: TObject);


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function index(x: integer): integer;

r := (sqr(fr[i]) + sqr(fi[i]));} {if i mod modus = 0 then

procedure ScrollBar1Change(Sender: TObject);


Properties

Events

Variables

Image1 : TImage;


Label1 : TLabel;


ScrollBar1 : TScrollBar;


mx : integer;


my : integer;


offset : integer;


ti : realarray;


tr : realarray;


xslut : integer;


xstart : integer;

Private declarations


Constructors


Functions


procedure Draw(var f : realarray);


procedure FormCreate(Sender: TObject);


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function index(x: integer): integer;

r := (sqr(fr[i]) + sqr(fi[i]));} {if i mod modus = 0 then


procedure ScrollBar1Change(Sender: TObject);


Properties


Events


Variables


Image1 : TImage;


Label1 : TLabel;


ScrollBar1 : TScrollBar;


mx : integer;


my : integer;


offset : integer;


ti : realarray;


tr : realarray;


xslut : integer;


xstart : integer;

Private declarations