Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

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

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

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


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

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


 
Ivolg ©   (2004-02-22 10:59) [2]

Примерно так:
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); //



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
7-12542
Юрий
2003-12-18 00:14
2004.03.05
Работа с дисками


8-12458
LEON88
2003-10-31 00:43
2004.03.05
Программа поверх игры


3-12286
CrossOut
2004-02-07 19:04
2004.03.05
Запрос к базе


3-12231
Splinter
2004-02-10 06:43
2004.03.05
Объединение полей БД в Delphi


1-12320
VID
2004-02-22 20:04
2004.03.05
Срочно! С помощью чего можно запретить изм-е системного времени