Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c