Текущий архив: 2003.02.10;
Скачать: CL | DM;
Вниз
Работы с тригонометрическими функциями Найти похожие ветки
← →
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]Вообще-то я больше отвечал >Johnmen © (01.02.03 01:35).
Страницы: 1 вся ветка
Текущий архив: 2003.02.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
