|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2008, 14:33 | #1 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Построить график с помощью Делфи
Здравствуйте, форумчане:
подскажите пожалуйста, как можно построить график в Делфи (например функции y=x в кубе{y=x*x*x}) с помощью какого компонента? можно ли построить на имаге ? можно ли задать пределы, до которых будет рисоваться график (например до x=5, y=10)? Заранее спасибо!
Программирование - это великое искусство... Такое же как например и живопись!
|
25.09.2008, 15:11 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
компонент TChart, большие возможности
на имидже тоже можно через канву по пикселям |
25.09.2008, 15:24 | #3 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Большое спасибо, что ты мне помогаешь, а можно пример?
Программирование - это великое искусство... Такое же как например и живопись!
|
02.10.2008, 22:18 | #4 | |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
Цитата:
я думаю по пиксельно будет проще вот исходник с книги дельфи 7 для начинающих unit grfunc_; interface Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarations } public {Public declarations } end; var Forml: TForml; implementation {$R *.DFM} // Функция, график которой надо построить Function f(x:real):real; begin f:=2*Sin(x)*exp(x/5) ; end; // строит график функции procedure GrOfFunc; var x1,x2:real; // границы изменения аргумента функции y1,y2:real; // границы изменения значения функции х:real; // аргумент функции у:real; // значение функции в точке х dx:real; // приращение аргумента l,b:integer; // левый нижний угол области вывода графика w,h:integer; // ширина и высота области вывода графика mx,my:real; // масштаб по осям X и Y х0,у0:integer; // точка — начало координат begin // область вывода графика l:=10; // X — координата левого верхнего угла b:=Forml.ClientHeight-20; //У — координата левого верхнего угла h:=Forml.ClientHeight-40; // высота w:=Forml.Width-40; // ширина x1:=0; // нижняя граница диапазона аргумента х2:=25; // верхняя граница диапазона аргумента dx:=0.01; // шаг аргумента // найдем максимальное и минимальное значения // функции на отрезке [x1,x2] y1:=f(xl); // минимум y2:=f(xl); //максимум x:=x1; repeat У := f (х); if у < yl then yl:=y; if у > у2 then y2:=y; х:=x+dx; until (x >= х2); // вычислим масштаб my:=h/abs(y2-yl); // масштаб по оси Y mx:=w/abs(x2-xl); // масштаб по оси X х0:=1; у0:=b-Abs(Round(y1*my)) ; with form1.Canvas do begin // оси MoveTo(l,b);LineTo(l,b-h); MoveTo(x0,y0);LineTo(x0+w,y0); TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3)); TextOut(l+5,b,FloatToStrF(yl,ffGene ral,6,3)); // построение графика x:=xl; repeat y:=f(x); Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed; x:=x+dx; until (x >= x2); end; end; procedure TForm1.FormPaint(Sender: TObject); begin GrOfFunc; end; // изменился размер окна программы procedure TForm1.FormResize(Sender: TObject); begin // очистить форму forml.Canvas.FillRect(Rect(0,0,Clie ntWidth, ClientHeight)); // построить график GrOfFunc; end; end. |
|
02.10.2008, 22:19 | #5 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
http://boloz.ucoz.ru/forum/ заходите новый форум
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как построить график | Nijaz | Общие вопросы Delphi | 5 | 09.06.2014 11:25 |
как построить график в паскале? | Vitas1234 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 11.06.2008 16:53 |
построить график по формуле | Prof | Помощь студентам | 1 | 02.06.2008 08:07 |
Построить график в Паскале. | LEX.darnica | Помощь студентам | 3 | 28.11.2007 18:11 |