polar_point
EXPRESS specification:
ENTITY
polar_point
SUBTYPE
OF
(
cartesian_point
);
r
:
length_measure
;
theta
:
plane_angle_measure
;
DERIVE
SELF
\cartesian_point.coordinates
:
LIST
[1:3]
OF
length_measure
:=
[r*cos(theta), r*sin(theta)];
WHERE
WRP30
:
r >= 0.0;
END_ENTITY
;
References (1):
Name
Type
Referred through
Express-G
cartesian_point
Entity
Subtype
No Diagram
Inheritance graph
ENTITY
polar_point;
ENTITY
representation_item
;
name
:
label
;
ENTITY
geometric_representation_item
;
DERIVE
dim
:
dimension_count
:= dimension_of(SELF);
ENTITY
point
;
ENTITY
cartesian_point
;
ENTITY
polar_point
;
r
:
length_measure
;
theta
:
plane_angle_measure
;
DERIVE
coordinates
:
LIST
[1:3]
OF
length_measure
:=
[r*cos(theta), r*sin(theta)];
END_ENTITY
;