que tal,
creo que Lucifer ya te explico bien como funciona un for.
Si eso no es lo quieres, no entiendo que es lo que "no entiendes"... de que te sirve que te ponga algo asi:
Código:
for I := 0 to 7 do
begin
if (I and 1) > 1 then s1 := -1 else s1 := 1;
if (I and 2) > 1 then s2 := -1 else s2 := 1;
if (I and 4) > 1 then s3 := -1 else s3 := 1;
if (Abs(s1 * Result[X] * sint-M[Y, Z] + M[Z, Y]) < EPSILON2) and
(Abs(s2 * Result[Y] * sint-M[Z, X] + M[X, Z]) < EPSILON2) and
(Abs(s3 * Result[Z] * sint-M[X, Y] + M[Y, X]) < EPSILON2) then
begin
Result[X] := Result[X] * s1;
Result[Y] := Result[Y] * s2;
Result[Z] := Result[Z] * s3;
Exit;
end;
end;
si no sabes que es lo que estoy tratando de hacer con eso ni cual es el problema....
Puedes explicarte mejor que es exactamente lo que quieres?