TImage

← →
ффф (2004-02-21 23:29) [0]

Как с помощью Timage построить граф? Может можно его представить через что другое(я имею ввиду ввод графа графически в программе)

← →
olookin © (2004-02-22 10:33) [1]

Нарисовать вершины графа точками и соединить эти вершины линиями? Тогда можно. Например имея массив точек (ккординат точек) и массив соотвествий между точками (т.е. являются ли две точки вершинами одной ветки) не составит большого труда отрисовать на канве TImage

Примерно так:
Function f(x:real):real;
begin
f:=2*Sin(x)*exp(x/5);
end;

procedure GrOfFunc;
var
x1,x2:real;
y1,y2:real;
x:real;
y:real;
dx:real;
l,b:integer;
w,h:integer;
mx,my:real;
x0,y0:integer;

begin
l:=10;
b:=Form1.ClientHeight-20;
h:=Form1.ClientHeight-40;
w:=Form1.Width-40;

x1:=0;
x2:=25;
dx:=0.01;
[x1,x2]
y1:=f
(x1);

y2:=f(x1);
x:=x1;
repeat
y : = f(x);
if
y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx;
until (x>=x2);

my:=h/abs(y2-y1); //

TImage Найти похожие ветки