FUNCTION cto2d_determinant_test
(cto2d : cartesian_transformation_operator_2d, expected_value : REAL, delta : REAL) : BOOLEAN;
LOCAL
det : REAL := 0.0;
DRs : LIST [4:4] OF REAL := [];
END_LOCAL;
DRs[1] := cto2d.u[1].direction_ratios[1];
DRs[2] := cto2d.u[1].direction_ratios[2];
DRs[3] := cto2d.u[2].direction_ratios[1];
DRs[4] := cto2d.u[2].direction_ratios[2];
det := (DRs[1] * DRs[4]) - (DRs[2] * DRs[3]);
IF (Abs(expected_value - det) < Abs(delta) ) THEN
RETURN (TRUE);
ELSE
RETURN (FALSE);
END_IF; END_FUNCTION; -- cto2d_determinant_test
|