Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

How to do? Find similar branches


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);
was
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]

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



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

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



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top









Memory: 0.82 MB
Time: 0.049 c
1-22164
Warchild
2001-12-19 21:46
2002.01.08
ListBox -> Row Select


14-22323
Melamed
2001-11-04 19:57
2002.01.08
How to correct these personal data, registered at registration?


1-22210
Man in red
2001-12-15 20:12
2002.01.08
How namut such that ............................


1-22202
T2
2001-12-16 07:12
2002.01.08
On the issue of small executable files


1-22203
T2
2001-12-16 07:07
2002.01.08
Catching the absence error msWord





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish