ГОСТ Р ИСО 10303-203-2003
mag : •= -mag :
E N D JF;
result := dummy_gri 11vector!normalise(v), mag);
ENDJF:
RETURN (result);
END_FUNCT10N; - - scalar_timcs_vcctor
FUNCTION second_proj_axis(z_aXiS, x_axis. arg: direction
): direction;
LOCAL
temp: vector;
v: direction;
у axis: vector;
END_LOCAL ;
IF NOT EXISTS (arg) THEN
v ; = dutnmv_gri 11direction (|0. 1, 0|);
ELSE
vaig;
END_IF;
temp := scalar_timcs_vector (dot_product (v, z_axis), z_axis);
y_a\is := vector_diflcrencc(v, temp);
temp :■»scalar_timcs_vector(dot_product(v. x axis), x_axis);
y_axis :» vcctor_diffcrcncc(y_axis, temp);
y_a\is ;™normaljse(y_axis);
RETURN (y_a\is.oricntation);
END_FUNCTION; - - sccond_proj_axis
FUNCTION sct_of_topok>gy_rcvcrscd (a_sel : sct of rcvcrsible topology itcm
): set_of_rcversible_topologv_item;
LOCAL
the_rcvcrsc : sct_of_rcvcrsiblc topt)logvJtcm;
END_LOCAL;
thcreversc : *■| | ;
REPEAT i :- I TO SI2EOF <a_sel) BY 1;
the_reversc :*=thc reversc + topology_revcrscd(a_sct|i|);
END.REPEAT;
RETURN (the_reverse);
END_FUNCTION; - - sct_of_topology_revcn»ed
FUNCTION shell_rcverscd(a_shcll: shell): shell;
IF ’CONFIG_CONTROL_DESIGN.OPEN_SHELL’ IN TYPEOF(a_shcll) THEN
RETU RN(opcn_shcll_rcvcrsed( a_shcll)>;
ELSE
IF "CONFIG_C‘ONTROL_DESIGN.CLOSED
J> H
ELL’ IN TYPEOF(a_shcIl) THEN
RETURN (closed_shell_reveracd(a_shelI)) ;
ELSE
RETURN (?) ;
ENDJF;
ENDJF;
END_FUNCTION; - - shcll_rcverscd
FUNCTION surl’ace_weights_posUivc(b: rationalJi_spline_surface
) : BOOLEAN:
LOCAL
result: BOOLEAN ;* TRUE;
END_LOCAL;
REPEAT i0 TO b.u_upper BY 1;
REPEAT j0 TO b.v_upper BY 1;
IF b.wcighls|i||j| <= 0 THEN resultFALSE;
RETURN (result) ;
201