Движение по синусоиде

← →
Pup © (2009-12-19 17:24) [0]

Здравствуйте! Очень хотелось бы узнать, как заставить треугольник (ну или просто точку) двигаться по синусоиде?

← →
Anatoly Podgoretsky © (2009-12-19 17:33) [1]

> Pup (19.12.2009 17:24:00) [0]

Sin(x)/Cos(X)

← →
Омлет © (2009-12-19 18:00) [2]

Простой код, который при нажатии на Button1 рисует синусоиду прямо на форме.
Как преобразовать для движения, надеюсь, разберешься. (Height div 9) - это просто длина "волны".

procedure TForm1.Button1Click(Sender: TObject); var X, Y: Integer; begin Canvas.MoveTo(0, 0); for X := 0 to Width do begin Y := Round(Sin(X*Pi/180)*(Height div 9)) + Height div 2; Canvas.LineTo(X, Y); end; end;

← →
Омлет © (2009-12-19 18:04) [3]

> (Height div 9) - это просто длина "волны".

Вру. Это амплитуда.

← →
Pup © (2009-12-19 18:29) [4]

Аррр спасибо =)

← →
Омлет © (2009-12-19 18:39) [5]

> Аррр спасибо =)

Почему-то именно Анатолию спасибо, хотя он сказал про тангенс.

← →
:) (2009-12-19 18:55) [6]

> Омлет © (19.12.09 18:39) [5]

app говорил отнюдь не о тангенсе, а о том, что движение по синусоиде ничем не отличается от движения по косинусоиде

← →
Anatoly Podgoretsky © (2009-12-19 19:00) [7]

А кто то за тангенс посчитал?

"Аррр" это типа звук я такой издаю когда довольна 8)

Как всё интересно в этом мире.

Движение по синусоиде Найти похожие ветки