Вниз
Скачать: CL | DM;

Как сделать?   Найти похожие ветки 

 
nazgul ©   (2001-12-15 14:28) [0]

Надо написать прогу на дельфи.
Чтобы строила График функции по заданной формуле.
Говорят можнос пом-ю компонента Chart
но как я не знаю?


 
KilkennyCat ©   (2001-12-16 07:35) [1]

Уф... для начала нужен делфи. Любой.
Но Чарт не нужен, или не обязательно он. Смотря как нужно рисовать.
Если Вам необходимо нарисовать просто какую-нить параболу, для демонстрации формулы, то берется любой канвас... например, так:

Я взял PaintBox размером 300х300
в обработчике onPaint все пикселы, удовлетворяющие условию у=5*sin(x/3)
окрашиваются в черный цвет:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
i : integer;
x, y : real;
begin
for i := 1 to 30000 do begin
x := i/100;
y := 5*sin(x/3);
PaintBox1.Canvas.Pixels[round(x),round(y)+150] :=clBlack;
end;
end;

цикл 30000 раз для того, чтобы увеличить графическое разрешение,
соответсвенно в дальнейшем, координаты х и у уменьшаются в сто раз.
Если этого не сделать, сплошной линии не получится.
К у прибавляется 150 для смещения по вертикали.

P.S. Забавно, проверяя этот код, я полчаса забавлялся, рисуя всякую бяку, но так и не смог подобрать формулу для отрисовки параболы...забыл совсем математику.


 
MBo ©   (2001-12-16 07:47) [2]

кладешь на форму chart, создаешь в нем series1

for i:=1 to 100 do begin
x:=0.1*i;
y:=tvoyaformula(x);
series1.addxy(x,y);
end;


 
$Hic0 ©   (2001-12-16 16:39) [3]

:)) y:=sqr(x) - парабола :)


 
BFG   (2001-12-16 16:40) [4]

>>Nazgul
А не хочешь так,чтоб любой график
функции ,записаной в Edit ,при нажатии кнопки выводился через Canvas имэджа? Я над этим довольно долго мучилси да так и ничего толкового не вышло.Если сможешь такое замутить то шли на paarik@zeos.net


 
nazgul ©   (2001-12-16 21:23) [5]

Народ
я уже разобрался
Написал прогу интерпретирующую график функции написанной в Edit"е
И рисует его в Чарте


 
Pat ©   (2001-12-17 00:59) [6]

>nazgul
Намыль прогу, пожалуйста. Я давно уже тра***сь с этим вопросом.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c
1-22265
Ser_Kham1
2001-12-17 16:10
2002.01.08
ListBox


3-21970
Chuk
2001-12-05 15:46
2002.01.08
Помогите с упаковкой


3-21980
Aleksandr
2001-12-05 13:26
2002.01.08
Как в программе сформировать connection string TADOConnection?


3-21947
DieHard
2001-12-05 13:18
2002.01.08
Получение из таблицы Oracle списка индексов


1-22245
T2
2001-12-16 07:12
2002.01.08
Gost & best crypt




   Наверх