FUNCTION orthogonal_complement

(* SCHEMA Ship_arrangement_schema; *)



   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;

Referenced By

Defintion orthogonal_complement is references by the following definitions:

Definition	Type
base_axis	FUNCTION
build_2axes	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:37-04:00