|
FUNCTION orthogonal_complement (vec : direction) : direction; LOCAL result : direction ; END_LOCAL ; IF ( vec . dim <> 2 ) OR NOT EXISTS ( vec ) THEN RETURN ( ? ) ; ELSE result := dummy_gri || direction ( [ - vec . direction_ratios [ 2 ] , vec . direction_ratios [ 1 ] ] ) ; RETURN ( result ) ; END_IF ; END_FUNCTION; -- orthogonal_complement |
|
public class FOrthogonal_complement public static Value run(SdaiContext _context, Value vec) |