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

Series3.AddXY(x,z,'',clTeeColor);

if (abs(Series1.YValues.Value[k]) > maxi) then

maxi:=abs(Series1.YValues.Value[k]);

x:=x+CSpinEdit2.Value;

end;

end

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var

k,x: Integer;

z: double;

begin

chart1.Series[1].Clear;

x:=0;

for k:=0 to count-1 do

begin

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

begin

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

massiv[k]:=z;

Series2.AddXY(x,z,'',clTeeColor);

if (abs(Series1.YValues.Value[k]) > maxi) then

maxi:=abs(Series1.YValues.Value[k]);

x:=x+CSpinEdit2.Value;

end;

end

end;

function fmod(x,y: Real): Real;

begin