Телепорт

[mira]

Сообщение от supernewbie

mira, как у тебя после возведения в квадрат получается отрицательное число?)

function L2VectorDist(const v1,v2: TL2Vector):single;
var
fx,fy,fz:double;
summ : double;
begin
fx:=(v1.x-v2.x)*(v1.x-v2.x);
fy:=(v1.y-v2.y)*(v1.y-v2.y);
fz:=(v1.z-v2.z)*(v1.z-v2.z);
summ:=abs(fx+fy+fz);
result:=sqrt(summ);
end;

у меня дистанция считаетса вот так. без abs иногда получаетса непонятная уета с summ<0

Добавлено через 4 минуты
если ктото мне объяснит в чем тут чудо я буду тока рад)
пока поставил абс как костыль вроде норм...

[supernewbie]

mira, точно уверен что < 0 получается?
пробывал проверять что приходит в функцию вообще?

[SeregaZ]

а само значение, пусть даже меньше нуля - правильное? если правильное, то можно помножить на (-1)
иф q < 0 то
q*(-1)

[mira]

Сообщение от supernewbie

mira, точно уверен что < 0 получается?
пробывал проверять что приходит в функцию вообще?

проверял. Норм все в функцию приходит.
Я функцию выносил в тестовый апликейшн и при больших цифрах возникала ошибка ариф.процессора типа отрицательное число под корнем. Проверил степ-степ отладкой так и оказалось. Хз в чем дело, мб какоето переполнение.

[supernewbie]

Сообщение от mira

Норм все в функцию приходит.

а как именно ты это узнал?

[mira]

Сообщение от mira

  fx:=(v1.x-v2.x)*(v1.x-v2.x);

вот если делфи видит это как

  fx:=integer((v1.x-v2.x)*(v1.x-v2.x));

тогда в принципе все обьяснимо

[Aries]

Сообщение от mira

вот если делфи видит это как

  fx:=integer((v1.x-v2.x)*(v1.x-v2.x));

тогда в принципе все обьяснимо

очень сомневаюсь...
и кстати замени double на int64 (мб и на LongInt, хотя туда вряд ли влезет квадрат слишком отдаленных координат), один хрен координаты не имеют десятичных точек.

[mira]

Сообщение от supernewbie

а как именно ты это узнал?

да просто.
Как тока у меня вышла наепка я сразуже запомнил координаты персов м/у которыми считалось.
Потом засунул их в тестовую прогу с копией функции - баг повторилса.
да. Растояние был довольно большое

[Aries]

Выложи сюда эти координаты ради интереса.

[mira]

x1=3434232
y1=23000
z1=2000

x2=65788
y2=455
z2=2000

например это

Добавлено через 1 минуту
координаты взяты из головы а нее из реальных игровых условий
факт что эти цифры уже приводят к ошибке

Добавлено через 10 минут
кстате ошибка возникает при использовании структуры

TL2Vector = packed record
  x,y,z:integer;
end;

если сделать

TL2Vector = packed record
  x,y,z:DWORD;
end;

ошибки нет, впрочем расчет всеравно получаетса ошибочный
что еще раз подтверждает теорию о переполнении занкового и беззнакового числа

видимо ясно почему в клиенте юзают тип DOUBLE внутри клиента а integer-ы тока в пакетном уровне