Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como fazer? Encontre agências semelhantes


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: inteiro;
x, y : real;
começar
para i: = 1 para 30000 começar
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

para i: = 1 para 100 começar
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]

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



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

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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.82 MB
Hora: 0.033 c
14-22337
Alexandr
2001-11-05 13:20
2002.01.08
Print Server DP-101(D-Link) и печать из-под DOS


1-22154
marina
2001-12-20 15:42
2002.01.08
Удаление содержимого каталога


1-22042
Anjo s
2001-12-15 23:04
2002.01.08
Carregar um arquivo jpg para Image


3-21935
cabelo
2001-12-03 15:12
2002.01.08
Armazenamento de dados


1-22131
Katia
2001-12-20 08:27
2002.01.08
Eu realmente preciso





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol