VPF::Как нарисовать график функции?

Vit

Дата 15.5.2002, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Вот, пришло ко мне из рассылки "Мастера DELPHI. Новости мира компонент"

Код

procedure TForm1.Button3Click(Sender: TObject);
var x,y:array[1..50] of double;
i:integer;
scalex,scaley,ymin,ymax,xmin,xmax:double;
begin
for i:=1 to 50 do begin
 y[i]:=sin(i*0.5);
 x[i]:=i;
end;
xmin:=x[1];
xmax:=x[1];
ymin:=y[1];
ymax:=y[1];
for i:=2 to 50 do begin       // или используйте ymin:=MinValue(y); и т.д.
 if y[i]<ymin then ymin:=y[i];
 if y[i]>ymax then ymax:=y[i];
 if x[i]<xmin then xmin:=x[i];
 if x[i]>xmax then xmax:=x[i];
end;
scalex:=paintbox1.Width/(xmax-xmin);
scaley:=paintbox1.Height/(ymax-ymin);
with paintbox1.canvas do begin
 moveto(trunc(scalex*(x[1]-xmin)),paintbox1.height-trunc(scaley*(y[1]-ymin)));
 for i:=2 to 50 do
   Lineto(trunc(scalex*(x[i]-xmin)),paintbox1.height-trunc(scaley*(y[i]-ymin)));
end;
end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Baa

Дата 15.5.2002, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

Забавная штука синусы

Код

for i:=1 to 500 do begin
  paintbox1.Canvas.Pixels [round(sin(i*5)*10+50),round(sin(i*10)*10+50)] := RGB(0,0,0);

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

podval

Дата 15.5.2002, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

Репутация: нет
Всего: 62

Про оцифровку осей там ничего не говорилось?
Такой график бывает нужен. Надо, например, отобразить быстро меняющийся процесс, как на осциллографе, а TChart медленно думает.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »