Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.011 c
6-22302
Игорь
2001-10-11 20:10
2002.01.08
Сокеты в Delphi


1-22220
Кандыль
2001-12-16 15:10
2002.01.08
Как запретить удалять какую-либо папку, не вися в трее?


6-22299
Leviathan
2001-10-11 21:58
2002.01.08
Обработка ошибок TClientSocket


1-22102
Andrey196
2001-12-19 18:43
2002.01.08
Народ почему Image нехочет показывать TIF изображения


1-22100
Avol
2001-12-15 18:29
2002.01.08
Как в Delphi сделать таблицу рекордов для игры?