Реферат Моделювання цифрового фільтра верхніх частот

1);

Application.Run;. UFilterOne;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, TeeProcs, TeEngine, Chart, Buttons, StdCtrls,, Spin, Ugenerator, Series, Math;

TForm1 = class (TForm)

Button1: TButton;

BitBtn1: TBitBtn;

Label2: TLabel;

SpinEdit3: TSpinEdit;

Label7: TLabel;

Memo2: TMemo;

Label8: TLabel;

Chart1: TChart;

Series1: TLineSeries;

Series2: TLineSeries;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form1: TForm1;

{$ R *. dfm} TForm1.Button1Click (Sender: TObject); a, c: real;: tGen;, j: integer;: Tfilter;, y, y1, h: real; : to 200 do to 380 do beginx <= k.getValue (i) then: = k.getValue (i);: = f1.getValueP (k.getValue (i)); i> 20 theny1 <= y then: = y;: = 20 * log10 (abs (y1/x));. Lines.Add (FloatToStr (res));;;. UGenerator;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, TeeProcs, TeEngine, Chart, Buttons, StdCtrls,, Spin, Math;

TGen = class (TObject)

Fample: real; {Амплітуда}

FVhod: real; {Частота вхідного сигналу}

Fdec: real; {Частота дескретізаціі}

Constructor Init1 (aVhod, adec: real);

Function getValue (ax: integer): real;

Function getTime (ax: integer): real;;

TFilter = class (Tobject)

a01, a02, a03, b01, b02: Real;

a11, a12, a13, b11, b12: Real;

a21, a22, a23, b21, b22: x2, y1, y2: real;

Constructor Init2;

Function getValueP (aX: Real): Real;; TFilter.Init2;

begin

Inherited Create;: = 0.562495; a02: = -0.562495; b01: = -0.12499;: = 0.47947; a12: = -2 * 0.47947; a13: = 0.47947; b11: = 0.378817; b12 : = -0.539061;: = 0.349231; a22: = -2 * 0.349231; a23: = 0.349231; b21: = 0.275919; x1: = 0; x2: = 0; y1: = 0; y2: = 0;

end; TGen.Init1 (aVhod, adec: real);

begin

inherited Create;

Fample: = 1;

Fvhod: = aVhod;

Fdec: = adec;

end; TGen.getValue (aX: Integer): Real;

begin

Result: = fAmple * sin (2 * Pi * (Fvhod * 1000) * getTime (aX)...