Работы с тригонометрическими функциями

← →
XPatriot[d.m.b] (2003-02-01 00:43) [0]

Уважаемые Мастера, не подскажите ли вы как построить на форме функцию вида(например) y=sinx

← →
uw (2003-02-01 01:10) [1]

На форму кладешь TImage. У него есть Canvas, потом строишь по точкам с помощью MoveTo и LineTo.

← →
Johnmen (2003-02-01 01:35) [2]

Зачем Image ? У формы есть свой Canvas, в нем и отрисовывать...

← →
Pat (2003-02-01 02:04) [3]

TChart

← →
Юрий Зотов (2003-02-01 06:19) [4]

procedure TForm1.FormPaint(Sender: TObject);
const
Y0 = 200;
YMax = 100;
XMax = 10 * Pi;
var
i: integer;
begin
with Canvas do
begin
MoveTo(0, Y0);
for i := 1 to ClientWidth do
LineTo(i, Y0 + Trunc(YMax * Sin(i * XMax / ClientWidth)))
end
end;

← →
uw (2003-02-01 10:28) [5]

>Юрий Зотов © (01.02.03 06:19

И ты поддерживаешь дурной стиль?!
Эта нарисованная функция нечто самостоятельное, которое захочется поместить на панель, сменить Brush, переместить, наконец. А так - программно замуровано.

← →
Anatoly Podgoretsky (2003-02-01 11:37) [6]

Не понимаешь разницы между примером и реальной программой

← →
uw (2003-02-01 13:10) [7]

Работы с тригонометрическими функциями Найти похожие ветки