(* SCHEMA structural_analysis_design; *)
FUNCTION required_1d_nodes(
node_list: LIST [1:?] OF node_representation;
order: element_order
): BOOLEAN;
LOCAL
end_nodes : INTEGER;
additional_nodes : INTEGER;
END_LOCAL;
end_nodes := 2;
IF order = linear THEN
additional_nodes := 0;
END_IF;
IF order = quadratic THEN
additional_nodes := 1;
END_IF;
IF order = cubic THEN
additional_nodes := 2;
END_IF;
RETURN(SIZEOF(node_list) = (end_nodes + additional_nodes));
END_FUNCTION; -- required_1d_nodes
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:15:08-04:00