ГОСТ Р ИСО 13584-42—2012
LOCAL
pos. neg: SET OF derived_unit_element;
us: STRING;
END_LOCAL;
(* separate unit elements according to the sign of the exponents;*)
pos:= QUERY(ue <* u.elements | ue.exponent > 0);
neg;= QUERY{ue <* u.elements | ue.exponent < 0);
us:=
IF SIZEOF(pos) > 0 THEN
C there are unit elements with positive sign *)
REPEAT i:= LOINDEX(pos) TO HIINDEX(pos):
us;= us +stringJor_derived_unit_element{pos[iJ, FALSE);
IFi <> HIINDEX(pos)
THEN
us:= us +
ENDJF;
END_REPEAT;
IF SIZEOF(neg) > 0
THEN
(* there are unit elements with negative sign, use ‘/’notation;’)
us:= us + T;
IF SIZEOF(neg) > 1
THEN
us:= us +’(■;
ENDJF;
REPEAT i;= LOINDEX(neg) TO HIINDEX(neg);
us;= us + stringJor_deriv6d_unit_etement(
neg[ i], FALSE);
IF i <> HIINDEX(neg)
THEN
us:= us +
ENDJF;
END_REPEAT;
IF SIZEOF(neg) > 1
THEN
us:= us +’)’;
ENDJF;
ENDJF;
ELSE
(‘ only negative signs, use u-e notation*)
IF SlZEOF(neg) > 0 THEN
REPEAT i;= LOINDEX(neg) TO HIINDEX(neg);
us;= us +string Jor_derived_unit_element(
neg[ ij, TRUE);
IF i <> HIINDEX(neg)
THEN
us;= us +
ENDJF;
END_REPEAT;
ENDJF;
ENDJF:
RETURN(us);
END_FUNCTION; — stringJor_derived_unit
C
F.3.10.7 Функция строчного представления поименованных единиц измерения (StringJor_named_unit)
Функция stringJor_named_unit возвращает строчное представление поименованной единицы измерения
named_unit (в соответствии с ИСО 10303-41 и расширении в 5.10.6.2). рассматриваемой как параметр.
117