olegy123 писал(а):
- Код: Выделить всё
function getDeterminant4x4f(x: PGMatrix4x4f): Single;
begin
result:=((x^[0,0]*((x^[1,1]*x^[2,2]*x^[3,3])+(x^[1,2]*x^[2,3]*x^[3,1])+(x^[2,1]*x^[3,2]*x^[1,3])-
(x^[3,1]*x^[2,2]*x^[1,3])-(x^[3,2]*x^[2,3]*x^[1,1])-(x^[1,2]*x^[2,1]*x^[3,3])))
-(x^[0,1]*((x^[1,0]*x^[2,2]*x^[3,3])+(x^[1,2]*x^[2,3]*x^[3,0])+(x^[2,0]*x^[3,2]*x^[1,3])-
(x^[3,0]*x^[2,2]*x^[1,3])-(x^[3,2]*x^[2,3]*x^[1,0])-(x^[2,0]*x^[1,2]*x^[3,3])))
+(x^[0,2]*((x^[1,0]*x^[2,1]*x^[3,3])+(x^[1,1]*x^[2,3]*x^[3,0])+(x^[2,0]*x^[3,1]*x^[1,3])-
(x^[3,0]*x^[2,1]*x^[1,3])-(x^[3,1]*x^[2,3]*x^[1,0])-(x^[2,0]*x^[1,1]*x^[3,3])))
-(x^[0,3]*((x^[1,0]*x^[2,1]*x^[3,2])+(x^[1,1]*x^[2,2]*x^[3,0])+(x^[2,0]*x^[3,1]*x^[1,2])-
(x^[3,0]*x^[2,1]*x^[1,2])-(x^[3,1]*x^[2,2]*x^[1,0])-(x^[2,0]*x^[1,1]*x^[3,2]))));
end;
че то я запутался.
Просто расставил по местам ваш код:
- Код: Выделить всё
function getDeterminant4x4f(x: PGMatrix4x4f): Single;
begin
result:=((x^[0,0] * ((x^[1,1]*x^[2,2]*x^[3,3]) + (x^[1,2]*x^[2,3]*x^[3,1]) + (x^[2,1]*x^[3,2]*x^[1,3]) - (x^[3,1]*x^[2,2]*x^[1,3]) - (x^[3,2]*x^[2,3]*x^[1,1]) - (x^[1,2]*x^[2,1]*x^[3,3])))
-(x^[0,1] * ((x^[1,0]*x^[2,2]*x^[3,3]) + (x^[1,2]*x^[2,3]*x^[3,0]) + (x^[2,0]*x^[3,2]*x^[1,3]) - (x^[3,0]*x^[2,2]*x^[1,3]) - (x^[3,2]*x^[2,3]*x^[1,0]) - (x^[2,0]*x^[1,2]*x^[3,3])))
+(x^[0,2] * ((x^[1,0]*x^[2,1]*x^[3,3]) + (x^[1,1]*x^[2,3]*x^[3,0]) + (x^[2,0]*x^[3,1]*x^[1,3]) - (x^[3,0]*x^[2,1]*x^[1,3]) - (x^[3,1]*x^[2,3]*x^[1,0]) - (x^[2,0]*x^[1,1]*x^[3,3])))
-(x^[0,3] * ((x^[1,0]*x^[2,1]*x^[3,2]) + (x^[1,1]*x^[2,2]*x^[3,0]) + (x^[2,0]*x^[3,1]*x^[1,2]) - (x^[3,0]*x^[2,1]*x^[1,2]) - (x^[3,1]*x^[2,2]*x^[1,0]) - (x^[2,0]*x^[1,1]*x^[3,2]))));
end;