Построение и вывод графиков

.

function Show_Graph:Extended;

VAR f: TFrm_Graph;

i,j:integer;

begin

// создадим форму для вывода графика.

f := TFrm_Graph.Create(nil);

// границы видимости графика

f.MaxX := 10;

f.MaxY := 5;

f.MinX := -10;

f.MinY := -5;

 

f.Series_Start; // начали заполнять точками или фукциями

 

// добавить серию - график sin(x*2)

f.SERIES_ADD;

f.Series_FUNCTION(0, 'sin(x*2)'); // Первый параметр номер серии

f.Series_Color (0, clBlue);

 

f.SERIES_ADD; //следующая серия

f.Series_Color (1, clRed);

for i := 0 to 9 do

begin

j:= i*2;

f.Series_AddPoint (1, i, j); // Первый параметр номер серии

end;

 

f.SERIES_ADD; //следующая серия

f.Series_Color (2, clGreen);

f.Series_AddPoint (2, -4, -3);

f.Series_AddPoint (2, -3, 3);

f.Series_AddPoint (2, 4, -2);

f.Series_End;

f.ShowModal; //Показать форму

f.Free; // очистить

end;

 

begin

Show_Graph;

end.