Движение шара по кругу

При реализации вращения шарика по кругу столкнулся со следующей проблемой:есть процедура move, которая перемещает объект (шар) в двухмерной системе координат. Шар обладает скоростью (vx и vy), имеет определённые координаты (Xt и Yt), а с помощью процедуры телу сообщается ускорение (ax,ay).
То есть координаты тела равны (Xt,Yt), скорость равна (vx,vy); при этом через равные промежутки времени t вызывается процедура move(ax,ay).
К примеру, чтобы смоделировать свободное падение тела, необходимо придать величине ax значение 0, величине ay - значение g (при условии, что координаты тела не совпадают с землёй).
Так вот, с помощью этой функции я задаю телу определённое нормальное ускорение следующим образом: в переменные rx и ry перед каждым вызовом move записываются разности координат центра вращения и тела, далее, собственно, вызывается move(rx*sqr(w) , ry*sqr(w)). Однако при этом линейная скорость тела v начинает резко возрастать до тех пор,пока не пока не превысит максимально допустимую.
При этом тело движется по окружности радиуса sqrt(sqr(rx)+sqr(ry)).
В чём ошибка?

Сообщение от Позитрон я задаю телу определённое нормальное ускорение

И что Вы хотите? Если задаете ускорение, то скорость будет увеличиваться(или уменьшаться при отрицательном ускорении). А что Вам нужно?

0

Я задаю телу нормальное ускорение,т.е. ускорение, которое изменяет не модуль, а направление скорости. Но дело в том, что модуль тоже меняется (причём меняется нелинейно).

Добавлено через 18 часов 24 минуты
В чём всё-таки может быть проблема?