Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать?

nazgul © (2001-12-15 14:28:00)
Надо написать прогу на дельфи.
Чтобы строила График функции по заданной формуле.
Говорят можнос пом-ю компонента Chart
но как я не знаю?

Pat (2001-12-17 00:59:00) [1]
>nazgul
Намыль прогу, пожалуйста. Я давно уже тра***сь с этим вопросом.

nazgul (2001-12-16 21:23:00) [2]
Народ
я уже разобрался
Написал прогу интерпретирующую график функции написанной в Edit"е
И рисует его в Чарте

BFG (2001-12-16 16:40:00) [3]
>>Nazgul
А не хочешь так,чтоб любой график
функции ,записаной в Edit ,при нажатии кнопки выводился через Canvas имэджа? Я над этим довольно долго мучилси да так и ничего толкового не вышло.Если сможешь такое замутить то шли на paarik@zeos.net

$Hic0 (2001-12-16 16:39:00) [4]
:)) y:=sqr(x) - парабола :)

MBo (2001-12-16 07:47:00) [5]
кладешь на форму chart, создаешь в нем series1

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

KilkennyCat (2001-12-16 07:35:00) [6]
Уф... для начала нужен делфи. Любой.
Но Чарт не нужен, или не обязательно он. Смотря как нужно рисовать.
Если Вам необходимо нарисовать просто какую-нить параболу, для демонстрации формулы, то берется любой канвас... например, так:

Я взял 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. Забавно, проверяя этот код, я полчаса забавлялся, рисуя всякую бяку, но так и не смог подобрать формулу для отрисовки параболы...забыл совсем математику.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »