FUNCTION build_direction_node

(* SCHEMA structural_analysis_design; *)

  FUNCTION build_direction_node(
               node_1, node_2: node_representation
      ): LIST [2:3] OF REAL;

    LOCAL
      ndim                   : INTEGER;
      i                      : INTEGER;
      u                      : direction;
      node_2_point           : cartesian_point;
      node_1_point           : cartesian_point;
      rep_items              : SET [1:?] OF representation_item;
      nodal_direction_ratios : LIST [2:3] OF REAL;
    END_LOCAL;
    rep_items := node_1.items;
    REPEAT i := 1 TO SIZEOF(rep_items) BY 1;
      IF 'STRUCTURAL_ANALYSIS_DESIGN.CARTESIAN_POINT' IN TYPEOF(rep_items[
          i]) THEN
        node_1_point := rep_items[i];
        ESCAPE;
      END_IF;
    END_REPEAT;
    rep_items := node_2.items;
    REPEAT i := 1 TO SIZEOF(rep_items) BY 1;
      IF 'STRUCTURAL_ANALYSIS_DESIGN.CARTESIAN_POINT' IN TYPEOF(rep_items[
          i]) THEN
        node_2_point := rep_items[i];
        ESCAPE;
      END_IF;
    END_REPEAT;
    ndim := HIINDEX(node_2_point.coordinates);
    REPEAT i := 1 TO ndim BY 1;
      u.direction_ratios[i] := node_2_point.coordinates[i] - node_1_point.
          coordinates[i];
    END_REPEAT;
    u := normalise(u);
    REPEAT i := 1 TO ndim BY 1;
      nodal_direction_ratios[i] := u.direction_ratios[i];
    END_REPEAT;
    RETURN(nodal_direction_ratios);

  END_FUNCTION; -- build_direction_node

Referenced By

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