ГОСТ Р ИСО 10303-203-2003
lhcrmodynamic_temperaturc_exponent) ;
rcsult.amount_pf_substancc_cxponcnt :=• result.
amounl_of_substance_cxponent + (x.elemcnts[i|.exponent *
x. c!cmcnts|i|.unit.dimcnsions.amount_of_substancc_cxponcnt)
; rcsuIl.luminousJntcnsity_cxponcnt :* result.
luminous_inlensity_cxponent + (x.elcmcnts(i|.cxponent * x.
cIcments|i|.unit.dimeasioas.Iuminoas_intensity_cxponcnt);
EM)_R£PEAT ;
ELSE
result :=■x .dimcnsioas ;
E N D JF;
RETURN (result) ;
ENDFUNCTION; - - derivc_dimcnsional_cxponcnts
FUNCTION dimension_of (item: gcomctric_rcprescntation_itcm
): dimension_count;
LOCAL
x : SET OF representation;
у : rcprcsentation_contcxt:
END_LOCAL ;
x :» using_rcprcsentations(itcm):
у :=■xl IJ.contcxt_of_items:
RETURN (v\gcometric_rcprcscntation_contcxt.coordmatc_spacc_dimcnsion);
END_FUNCTION; - - dimcnsion_of
FUNCTION dimcnsions_for_si_unit<n: si_unit_namc
): dimeasional_cxportenis:
CASE n OF
metre
: RETURN (dimensional_cxponcnts (1.0, 0. 0. 0, 0. ()));
gram
:RETURN(dimcnsional_e.xponcnts(0.1, 0. 0. 0.0. 0));
second
:RETURN(dimensional_exponcnls(0.0. I. 0. 0.0. 0)):
ampere
: RETURN (dimcnsional_cxponcnts (0, 0. 0. 1.0, 0. 0»;
kclvin
: RETURN(dimcnsional_cxponcnts(0.0. 0. 0. I,0. 0));
mole
:RETURN(dimcnsional_exponcnts(0,0. 0, 0. 0, I, 0));
candela
:RETURN(dimensiona!_cxponcnts(0,0. 0,0. 0,0. 1));
radian
:RETURN(dimcnsional_cxponcnts(0.0. 0. 0. 0.0. 0));
sleradian
:RETURN(dimcasional_cxponcnts(0.0. 0. 0. 0.0, 0));
hertz
: RETURN (dimcnsional_cxponcnls (0. 0.-1. 0. 0. 0, 0));
newton
: RETURN (dimcnsional_cxpi»ncnts (1. 1,-2. 0, 0. 0, 0));
pascal
: RETURN (dimcnsional_cxponcnts (-1, 1,-2, 0. 0, 0. 0));
joule
; RETURN (dimcnsional_cxponcnts (2, 1,-2, 0. 0. 0. 0));
watt
: RETURN (dimcnsional_cxponcnts (2. 1.-3, 0, 0. 0, 0));
coulomb
: RETURN (dimcavional_cxponcnts (0, 0. 1, I. 0, 0. 0));
volt
: RETURN (dimcnsional_cxponcnts (2, I,-3,-1, 0. 0, 0));
farad
: RETURN (dimcnxional_cxponcnls (-2.-1. 4, 1. 0, 0, 0));
ohm
: RETURN (dimensional_exponcnts (2, l,-3,-2, 0. 0. 0));
siemens
: RETURN (dimensional_cxponcnis (-2,-1, 3. 2, 0,
0.
0)>;
weber
: RETURN (dimcnsional_cxponcnts (2. 1.-2,-1. 0. 0. 0));
tesla
: RETURN (dimcnsional_exponcnts (0. I.-2.-1. 0. 0, 0»;
henry
: RETURN (dimcnsional_cxpc»ncnts (2. l,-2,-2, 0, 0. 0));
dcgrec_ceLsius
: RETURN (dimcnsional_cxponcnts (0. 0. 0, 0. I, 0. 0));
lumen
: RETURN (dimcnsional_cxponcnts (0, 0. 0, 0, 0, 0, 1»;
lux
: RETURN (dimcnsional_exponcnis (-2. 0. 0. 0. 0. 0. 1));
becqucrcl
: RETURN (dimenaonal_cxponents (0. 0,-1.0. 0. 0. 0));
gray
: RETURN (dimcnsional_cxponcnts (2, 0,-2, 0. 0. 0. 0));
saevert
; RETURN (dimensional_c.\poncnls (2. 0.-2, 0, 0, 0, 0));
END_CASE ;
END_FUNCTION;
- - dimcnsions_for_si_unit
FUNCTION dot_pioduct(argl, arg2: direction): REAL;
LOCAL
189