Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.21;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Pup ©   (2009-12-19 19:21) [8]

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


 
Омлет ©   (2009-12-19 20:03) [9]

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


 
app ©   (2009-12-19 20:46) [10]


> Pup ©   (19.12.09 19:21) [8]
> "Аррр" это типа звук я такой издаю когда довольна 8)

А я когда недоволен



Страницы: 1 вся ветка

Текущий архив: 2010.02.21;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.006 c
3-1235132173
AK-87
2009-02-20 15:16
2010.02.21
Редактирование данных в визуальном компоненте без связи с БД


11-1193132694
Дмитрий Пырин
2007-10-23 13:44
2010.02.21
Где можно посмотреть пример работы с KOLJPGImage?


15-1260336729
Думкин
2009-12-09 08:32
2010.02.21
Компьютерра пока


6-1212600148
Real
2008-06-04 21:22
2010.02.21
TWebBrowser - организовать preview html-кода


15-1260749938
Kerk
2009-12-14 03:18
2010.02.21
Ленин в мозгах поколения ЕГЭ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский