Курсовая работа: Программная реализация разложения временного процесса в тригонометрический ряд

//Построение графика

var

time : extended;

Y: extended;

begin

Time:= TimeStart;

AChart.Series[0].Clear; //Очистить Series[0]

AChart.BottomAxis.Increment:= Floor((TimeEnd - TimeStart) / 5);

//Занести значения в Series

while(time <= TimeEnd) do

begin

Y:= F(1,time);

AChart.Series[0].AddXY(time, Y);

time:= time + TimeStep / 4;

end;

end;//TRiad.Graphic1

procedure TRiad.Graphic2(AChart : TChart);

//Построение графика

var

time : extended;

Y: extended;

begin

Time:= TimeStart;

AChart.Series[1].Clear; //Очистить Series[0]

AChart.BottomAxis.Increment:= Floor(( TimeEnd- TimeStart) / 5);

//Занести значения в Series

while(time <= TimeEnd) do

begin

Y:= F(3,time);