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

procedure TFormGraphic.BitBtn3Click(Sender: TObject);

begin

 Riad.Graphic3(FormGraphic.Chart1);

end;

procedure TFormGraphic.BitBtn4Click(Sender: TObject);

begin

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

Chart1.Series[2].Clear;

end;

end.

end.

Файл реализации класса - UnitRiad.pas

unit UnitRiad;

interface

uses Chart, Series, Math, Grids, SysUtils, Types, Graphics, IniFiles, Messages, Dialogs, StdCtrls, Variants, Classes, Controls, Forms,

 ExtCtrls, Buttons, Menus;

Type

TRiad = class //класс

private

IniFile : TIniFile; //Объект Ini-файла

w: integer;

public

Constructor Create(AIniFileName : string);

Destructor Destroy;

procedure Graphic1(AChart:TChart); //Постоение графика

procedure Graphic2(AChart:TChart); //Постоение графика

procedure Graphic3(AChart:TChart); //Постоение графика

procedure Table(AStringGrid:TStringGrid); //Вывод в таблицу

procedure WriteToIniFile; //Запись в Ini-файл