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

time:= time + TimeStep / 4;

end;

end;//TRiad.Graphic2

procedure TRiad.Graphic3(AChart : TChart);

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

var

time : extended;

Y: extended;

begin

Time:= TimeStart;

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

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

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

while(time <= TimeEnd) do

begin

Y:= F(5,time);

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

time:= time + TimeStep / 4;

end;

end;//TRiad.Graphic3

function TRiad.F(w : integer;t : extended) : extended;

//вычисление функции

var

j:integer;

begin

 F:=(2*P/x)*(sin(w*t)-1/2*sin(2*w*t)+1/3*sin(3*w*t)-1/4*sin(4*w*t))

end;//TRiad.F

procedure TRiad.Table(AStringGrid : TStringGrid);

//Вывод информации в таблицу