Зачем вычесляется Fraction, если значение нигде не используется? Вообще-то у тебя в U не единичный вектор, а черт знает что. Координаты вектора определяются разностью координат двух точек, причем первая не обязательно находится в начале координат. Можно, конечно, преположить, что первая точка находится в начале координат. Но тогда
U#=Sqr(ex#^2+ey#^2+ez#^2)
Это длина вектора. Единичный вектор должен иметь три координаты:
len = sqr(ex^2 + ey^2 + ez^2)
Ux = ex / len
Uy = ey / len
Uz = ez / len
А Fraction тогда должна задаваться скалярным произведением:
Fraction = Ux * EngineForceX + Uy * EngineForceY + Uz * EngineForceZ
или
Fraction = EngineForce * cos(угол между U и EngineForce)
Лучше приведи ссылку на оригинальную статью, чтобы можно было разобраться.