Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c