Главная страница
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.014 c
1-12328
ZSD
2004-02-22 17:09
2004.03.05
форматирование в RichEdit


6-12475
Vinter
2003-12-30 13:25
2004.03.05
время отклика


1-12397
BlackTiger
2004-02-22 17:16
2004.03.05
Как запретить получение фокуса контролом?


7-12547
N169
2003-12-17 10:42
2004.03.05
Как отключить подписывание драйверов?


4-12574
Vulko
2003-12-29 00:38
2004.03.05
Как мне узнать, что в буффер попал текст?