ГОСТ Р ИСО 10303-513—2009
loopbase
: edgeJoop := edgeJoop (’loopbase-, (oeb4f, oeb3f,
loopcone
apextoop
oeb2f, oeblf));
: edgeJoop := edgeJoop (’loopcone1, {oe2f. oeblt,
oe3t. oeb3t]);
: vertexJoop := vertex_toop (’apexloop’. vertorc);
bcl:faceJiound .* face_bound (’bcV. loopcone. TRUE):
bc2 : face_bound :■ face_bound (’bc2\ loope. FALSE);
b e j: face_outerJiound := face_outer_bound f b e j\ кюре. TRUE);
beJ; face_bound := faceJiound (‘beJ*. loope. FALSE);
bpar; face_outer_bound ;= face_outer_bound (’bpar’, looppar. TRUE).
bhyp. face_outer_bound := face_outer_bound {’bhyp’. loophyp. TRUE);
bbase : face_outer_bound .= face_outer_bound(’bbase’. loopbase, TRUE).
bcone : face_bound :* face_bound (’bcone’. loopcone. TRUE);
vbound ;face_bound ;= face_bound (’vbound’. apexloop. TRUE);
(* Четыре плоские грани конуса *)
curvedJace ;face_surface := face_surface (’curvedJace’. (bcone.
be_f). cone. TRUE).
tope_face :face_surface :■ face_surface (’tope_face,1[beJ).
pie. TRUE).
bottomc_face : face_surface := face_surface
parjace
hyp_face
<’bottomc_face’, (Dbase], pic. FALSE);
:face_surface :=
face_surface (’parjace’. (bpar). pip. TRUE);
. face_surface .=
face_surface (’hyp_face*. (bbyp). plh. TRUE):
(* Г рани конуса с эппиптическим основанием и верхним контуром •)
top Jace:face_surface := face_surface
(’topJace’. (beJ . vbound). cone. TRUE);
bottomeJace : face_surface .= face_surface (’bottomeJace’,
(be_f), pie. FALSE);
END_PARAMETER,
SCHEMA_DATA cone_8hell_ctxt;
CONSTANT
rt2 ■■ sqrt(2.0);
rt3 “» sqrt{3.0);
END_CONSTANT;
n1 = representaUonjtem [name -> *vconeshell’; SUPOF(@trl1).);
tri1 = topological_representaUon_item {SUBOF(@ri1): SUPOF(@cfs1);};
cfs1 = connectedJace_set{SUBOF(@tri);
cfsJaces -> (©topJace. ©bottomeJace);
SUPOF(@vconeshell););
n2 = representationjtem {name -> ’con4fshell’. SUPOF(@tri2).}.
tn2 = topological_representat»onjtem (SUBOF{@ri2). SUPOF(@cfs2>;};
cfs2 = connectedJace_set (SUBOF{@tn2);
cfs_faces -> (@topeJace, ©bottomcjace. curvedJace. parJace.
hyp Jace): SUPOF(@con4fshell): }:
vconesheil = closed_shell{SUBOF«§cfs1).);
con4fshelt = closed_shell {SUBOF{@cfs2);).
END_SCHEMA_DATA;
END_CONTEXT;
C
32