ГОСТ Р ИСО 10303-52—2015
linear: result[3] := 0: -- 0
END_CASE;
END;
polygon :
BEGIN
vts := arg.vn_count; eds := arg.vn_count;
result[1] := vts;
result[2] := 0;
result[3] := 0;
END;
hexahedron:
BEGIN
vts ;= 8; eds := 12; qf := 6; tf := 0;
result[1] := vts;
result[2] := om1*eds; - 0,12, 24
result[3) := om1sq*(qf+om1); - o, 7.32
END;
wedge:
BEGIN
vts := 6; eds := 9; qf := 3; tf := 2;
result[1) := vts;
result[2] := om1‘eds; - 0, 9,18
result[3] := omlsq’qf ♦ oml’tf; - 0. 3,16
END;
tetrahedron :
BEGIN
vts ;= 4; eds := 6; qf := 0; tf := 4;
result[1] := vts;
result[2] := om1*eds; - 0,6,12
result[3] := (om1-1)*tf; -0 . 4
CASE arg.order OF
linear: result[3] := 0: -- 0
END_CASE;
END;
pyramid :
BEGIN
vts := 5; eds := 8; qf := 1; tf := 4;
result[1] := vts;
result[2] := om1‘eds; -- 0, 8,16
result[3] := omlsq’qf ♦ (om1-1)*tf; -1 , 9
CASE arg.order OF
linear: result[3] := 0: -- 0
END_CASE;
END;
END_CASE;
RETURN(result);
END_FUNCTION;
Определения параметров:
arg — объект, представляющий ячейку.
Возвращаемое значение — массив из трех значений типа INTEGER, (целое), где первый
элемент массива — это число вершин, определяющих границы ячейки, второй элемент — это число
внутренних узлов, расположенных на ребрах, и третий элемент — это максимальное число
(возможных) внутренних узлов, не расположенных на ребрах.
4.4.3 Функция shorten_array
Функция shorten_array принимает в качестве входного аргумента одномерный массив и
возвращает более короткий одномерный массив, содержащий первые newl элементов входного
массива, где newl — это параметр целого типа, задающий размер результирующего массива.
27