FUNCTION dot_product

(* SCHEMA integrated_cnc_schema; *)

FUNCTION dot_product (
    arg1 : direction;
    arg2 : direction 
    ) : REAL;
  LOCAL
    scalar : REAL;
    vec1 : direction;
    vec2 : direction;
    ndim : INTEGER;
  END_LOCAL;
    IF NOT EXISTS(arg1) OR NOT EXISTS(arg2) THEN
      scalar := ?;
    ELSE
      IF arg1.dim <> arg2.dim THEN
        scalar := ?;
      ELSE
        BEGIN
          vec1 := normalise(arg1);
          vec2 := normalise(arg2);
          ndim := arg1.dim;
          scalar := 0.0;
          REPEAT i := 1 TO ndim;
            scalar := scalar + vec1.direction_ratios[i] * vec2.
              direction_ratios[i];
          END_REPEAT;
        END;
      END_IF;
    END_IF;
    RETURN (scalar);
END_FUNCTION; -- 10303-42: geometry_schema

Referenced By

Defintion dot_product is references by the following definitions:

Definition	Type
base_axis	FUNCTION
first_proj_axis	FUNCTION
second_proj_axis	FUNCTION

[Top Level Definitions]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:25-02:00