![]() |
|
#1
|
|||
|
|||
![]() КаК на Canvas 'е построить график Sin(X) ???
|
#2
|
||||
|
||||
![]() Код:
procedure DrawSinFunc(Canvas : TCanvas; X, Y, Ln, Sz : Integer); var i : Integer; begin with Canvas do begin MoveTo(X, Y); for i := X to X + Ln - 1 do LineTo(i, Y - Round(Sz * Sin((i - X) / Sz))); end; end; Canvas - канва, на которой надо нарисовать функцию; X, Y - координаты точки, из которой будет рисоваться график; Ln - длина графика в пикселях; Sz - размер синусоиды в пикселях. Пример использования : если на пустую форму кинуть кнопку и написть в событии OnClick Код:
DrawSinFunc(Canvas, 0, 50, 300, 30); ![]() Не профи, но и не чайник ![]() ![]() |