mirror of
https://github.com/NGSolve/netgen.git
synced 2024-12-27 06:10:34 +05:00
22 lines
864 B
GLSL
22 lines
864 B
GLSL
#
|
|
## 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;
|