add elliptic cone example

This commit is contained in:
Josephat Kalezhi 2018-02-26 15:12:18 +01:00
parent b6705eba14
commit 629a7dbc47

View File

@ -0,0 +1,21 @@
#
## An elliptic cone
#
# An elliptic cone, given by the point c = (c x , c y , c z ) at the base of the cone along the main axis,
# the vectors v and w of the long and short axis of the ellipse, respectively,
# the height of the cone, h, and ratio of base long axis length to top long axis length, r:
# ellipticcone (c x , c y , c z ; v x , v y , v z ; w x , w y , w z; h; r)
# Note: The elliptic cone has to be truncated by planes similar to a cone or an elliptic cylinder.
# When r =1, the truncated elliptic cone becomes an elliptic cylinder.
# When r tends to zero, the truncated elliptic cone tends to a full elliptic cone.
# However, when r = 0, the top part becomes a point(tip) and meshing fails!
algebraic3d
solid cutcone = ellipticcone ( 0, 0, 0; 5, 0, 0; 0, 2, 0; 5; 0.5)
and plane (0, 0, 0; 0, 0, -1)
and plane (0, 0, 5; 0, 0, 1);
tlo cutcone;