ГОСТ Р МЭК 61360-2—2013
THEN
IF (u.exponent > 0) OR NOT r.egexp
THEN
resultresult t ’**’ * FORMAT(
ABS(u.exponent),
’21’> 12 ];
ELSE
resultresult + ’■*’
+
FORMAT(u.exponent, ’21’)[2j;
END_IF;
END_IF;
RETURN(result);
END_FUNCTION; -- string_for_derived_unit_element
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 0UERY(ue <* u.elements |ue.exponent < 0);
us :- ’’;
IF SIZEOF(pos) > 0 THEN
(* there are unit elements with positive sign A)
REPEAT iLOINDEX(pos)TO HIINDEX(pos);
usus ■»string_for_derivea_unit_element(pos{i], FALSE);
IF i <> HIINDEX(pos)
THEN
us :- us * 1.’;
END_IF;
END_REPEAT;
IF SIZEOF(neg) > 0
THEN
(* there are unit elements with negative sign, use V
n otation : *)
us :- us +
IF SIZEOF(neg) > 1
THEN
us •» *(’;
us
END_IF;
REPEAT i
LOINDEX(neg) TO HIINDEX(neg);
us us + string_for_derived_unit_element(
neg ■i], FALSE);
IF i <> HIINDEX(neg)
THEN
us :- us ■» ’.’;
END_IF;
END_REPEAT;
IF SIZEOF(neg) > 1
THEN
usus ♦ ’)’;
ND_IF;
END IF;
79