|
FUNCTION required_2d_nodes (node_list : LIST [1:?] OF node_representation, element_shape : element_2d_shape, order : element_order) : BOOLEAN; LOCAL vertex_nodes : INTEGER ; edge_nodes : INTEGER ; edge_face_body_nodes : INTEGER ; END_LOCAL ; IF ( element_shape = triangle ) THEN vertex_nodes := 3 ; IF ( order = linear ) THEN edge_nodes := 0 ; edge_face_body_nodes := 0 ; END_IF ; IF ( order = quadratic ) THEN edge_nodes := 3 ; edge_face_body_nodes := 3 ; END_IF ; IF ( order = cubic ) THEN edge_nodes := 6 ; edge_face_body_nodes := 7 ; END_IF ; END_IF ; IF ( element_shape = quadrilateral ) THEN vertex_nodes := 4 ; IF ( order = linear ) THEN edge_nodes := 0 ; edge_face_body_nodes := 0 ; END_IF ; IF ( order = quadratic ) THEN edge_nodes := 4 ; edge_face_body_nodes := 5 ; END_IF ; IF ( order = cubic ) THEN edge_nodes := 8 ; edge_face_body_nodes := 12 ; END_IF ; END_IF ; RETURN ( ( SIZEOF ( node_list ) = vertex_nodes + edge_nodes ) OR ( SIZEOF ( node_list ) = vertex_nodes + edge_face_body_nodes ) ) ; END_FUNCTION; -- required_2d_nodes |
|
public class FRequired_2d_nodes public static Value run(SdaiContext _context, Value node_list, Value element_shape, Value order) |