ГОСТ Р ИСО 10303-513—2009
pi: plane := plane (‘рГ. а2);
cyl: cyiindrical_surface := cytmdrtcal_surface (’суГ, а1. rad);
sphere : sphenca!_surface :» spherical_surface (’sphere’, at. rad):
circ:circle .= circle (’circ’. a1. rad),
elli: ellipse .= ellipse(’elir. a2. majrad. rad).
cpoint :cartesian_pomt:= cartesian_polnt(’cpoint’.((ore-* rad).
ore. ore]);
epoint : cartes»an_point ;*
cartesian_pomt (’epolnt’, ((ore ♦ rad), ore.
(ore ♦ h - rad)]);
vertc : vertex_pomt := vertex_polnt (Vertc1. cpoint);
verte : vertex_point := vertex_point (’verte’. epoint);
edgel : edge_curve ;= edge_curve (’edgel’. vertc. vertc. circ, TRUE);
edge2 : edge_curve.» edge_curve (’edge2‘. verte. verte. elll. TRUE);
oe1; oriented_edge := onented_edge (’oe1*. edgel. TRUE);
oe2; orlented_edge := onented_edge (’oe2’. edge2. TRUE);
loopc . edgeJoop ;= edgeJoop (’loopc’. (’oe1’]};
loope . edgeJoop .= edge_loop (’loope’. [oe2]);
dc
:face_outer_bound .= face_outer_oound (’be’, loopc. FALSE);
De. face_outer_bound ;= face_outer_bound (’be’,loope. TRUE);
Dcylbot: tace_bound ;= tace_bound (’beylbot’. loopc. TRUE);
bcyltop : tace_bound ;= face_bound (’bcyltop’. loope. FALSE);
curved_face : face_surface := face_sur<ace(’curved_face’. (beylbot,
bcyltop). cyl. TRUE);
topJace : face_surface .= face_surface (’top Jace’. (be), pi. TRUE);
Dottom_(ace . tace_sur(ace .= face_surface (’bottomJace’. (be].
sphere. TRUE);
END_PARAMETER;
SCHEMA_DATAcyl_sph_shell_ctxt;
CONSTANT
П2 =» sqrt(2.0);
rt3 =* sqrt(3.0);
END_CONSTANT.
cfs = connectedJace_set (SUBOF(@tn);
elsJaces -> (@curved_face. @top_face. ©bottomJace);
SUPOF(@cyspshell):};
trl = topological_representation_item (SUBOF(@n); SUPOF(@cfs).];
ri * representation_item (name -> ’cyspshell’. SUPOF(@trl).};
cyspehell = closed_8hell (SUBOF(@cfs);}.
END_SCHEMA_DATA.
END_CONTEXT;
C
E.4.2 Контекст объекта cone_shell
Данный контекст описывает грани, необходимые для определения замкнутых оболочек конической формы с
круглыми, эллиптическими, гиперболическими или параболическими гранями. Конус имеет вершину с координата
ми (orc.orc.orc). половинный угол при вершине 30‘ иось. параллельную оси
2
. Перпендикуляр ккаждой плоской гра ни
ортогонален к направлению оси у и расположен под фиксированным углом.
П р и м е ч а н и е — Объекты plane_angle_unlt должны быть определены в градусах.
Размеры результирующей оболочкидолжны регулироваться изменением значений расстояний dc. de. dh, dp
от вершины конуса до точек пересечения с осью конуса плоскостей окружности, гиперболы, параболы соответ
ственно.
29