Вращение точки вокруг другой точки [Delphi]

[ewert]

shau-kote в сообщении #682935 писал(а):

Если кто-то видит в данном варианте недочёты,

Вижу -- одно из неравенств должно быть нестрогим, и стандартнее всего -- первое.

Что же до поворота точки, то код, безусловно, должен быть примерно таким (с точностью до оптимизации):

Используется синтаксис Pascal

var  xrotated, yrotated: real;
. . . . . . . . . . . . . . .
  xrotated := ( cos(alpha)*(xrotaded - axis.x) + sin(alpha)*(yrotaded - axis.y) ) + axis.x;
  yrotated := ( cos(alpha)*(yrotaded - axis.y) - sin(alpha)*(xrotaded - axis.x) ) + axis.y;

  xrotaded:=xrotaded / sqrt(sqr(xrotaded)+sqr(yrotaded));
  yrotaded:=yrotaded / sqrt(sqr(xrotaded)+sqr(yrotaded));

  rotated.x := Round(xrotated) + axis.x;
  rotated.y := Round(yrotated) + axis.y;
 

, где xrotated, yrotated -- глобальные переменные.

[ewert]

Да, пардон, у меня там явная путаница между центрированными переменными и абсолютными. Эдакий эффект копипастения. Но исправлять лень; думаю, что всем ежам и так всё понятно.

[shau-kote]

ewert в сообщении #682940 писал(а):

Вижу -- одно из неравенств должно быть нестрогим, и стандартнее всего -- первое.

Ваша правда.

ewert в сообщении #682940 писал(а):

Что же до поворота точки, то код, безусловно, должен быть примерно таким (с точностью до оптимизации):

Эмм. Простите, не совсем уловил Вашу идею.
Зачем Вы делите на корень?..
И как вы можете вычислять первые две строки без временной переменной?

З.Ы. Прошу прощения за долгое молчание, обновлял главную страницу топика, ожидая ответа, не заметил, что появилась вторая страница. >_>