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

Вниз

Геометрия на плоскости   Найти похожие ветки 

 
ПсихЪ_копия   (2004-07-11 16:48) [0]

Что я не правильно делаю:

     dX := abs( Cos( 2*Angel )*step );
     if X > eX then
       X := X-dX
     else
       X := X+dX;

     dY := abs( Sin( Angel )*step );
     if Y > eY then
       Y := Y-dY
     else
       Y := Y+dY;
// Angel - угол в градусах
// X, Y - положение объекта
// eX, eY - конечные положения объекта
// step - шаг "по гипотенузе" до (eX;eY)
// dX, dY - смещение по X и Y соответственно за каждый проход


Вроде бы все тригонометрические правила соблюдены. Может нужно в радинанах угол писать, но тоже не помогает. Объект движется с непонятными мне dX и dY но в нужную сторону. Обычно вместо того, чтобы плавно идти прямо до точки (eX;eY) он движется быстрее к одной из координат, а затем в несколько раз медленнее движется по прямой к конечной точке.

Может я чего-то не учёл?


 
ПсихЪ_копия   (2004-07-11 16:50) [1]

Простите, код немного не тот - эксперименты мои... (: Вот:

    dX := abs( Cos( Angel )*step );
    if X > eX then
      X := X-dX
    else
      X := X+dX;

    dY := abs( Sin( Angel )*step );
    if Y > eY then
      Y := Y-dY
    else
      Y := Y+dY;



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

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

Наверх




Память: 0.46 MB
Время: 0.047 c
14-1097911291
MYSTERYO
2004-10-16 11:21
2004.11.07
Ставлю сетевуху - не инициализируется видео-карта,


3-1097215945
ocean
2004-10-08 10:12
2004.11.07
Синхронизировать базу на двух MSSQL-серверах


1-1098316641
Валерий
2004-10-21 03:57
2004.11.07
Как назначить Button.Click; другому компоненту?


1-1098442610
}|{yk
2004-10-22 14:56
2004.11.07
Такой вот код вываливается с ошибкой OLE


14-1097843810
snake1977
2004-10-15 16:36
2004.11.07
настройка Delphi