Курсовая работа: Квантование сигналов по времени

SpeedButton3.Enabled:=false;

Sd1.Enabled:=false;

SpeedButton3.Flat:=true;

SpeedButton2.Enabled:=true;

dsf1.Enabled:=true;

count:=0;

i:=0;

while (i<=CSpinEdit1.Value) do

begin

Series1.AddXY(i,(random(5)+1)*0.05*cos(i+random(5)*0.01),'',clTeeColor);

i:=i+0.5 ;

Inc(count);

end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

x,k: Integer;

z: double;

begin

Series3.Clear();

SpeedButton3.Enabled:=true;

sd1.Enabled:=true;

SpeedButton3.Flat:=false;

x:=0;

for k:=0 to count-1 do

begin

if (Series1.XValues.Value[k]=x) then

begin

z:=Series1.YValues.Value[k];