Plan

Haut

Bas

Plan

Section

Triangle

Diamètre = 8.2 (slider from 0 to 10, step 0.1)
position = -0.6 (slider from -3 to 12, step 0.1)
C = (0, 0, 0.1)
M: (0, 0, Diamètre)
Pt: (0, 0, position)
horizontal = Plane(Pt, xOyPlane)
Opacité = 0.75 (slider from 0 to 1, step 0.01)
O: (0, 0, Diamètre / 2)
s = Sphere(O, Diamètre / 2)
Cercle = IntersectPath(horizontal, s)
Ecart = 0 (slider from 0 to 4, step 0.01)
P1: (x(O) + Diamètre / 2, y(O), z(O))
D1 = Line(O, P1)
D2 = Translate(D1, Vector[(0, 0, (-z(O)) + position)])
P = Intersect(D2, s, 2)
α = Angle(P1, O, P, Vector[(0, -1, 0)])
r: Diamètre / 2
a = true
b = true
c = true
H: (x(O), y(O), z(P))
Tri, p, o, h = Polygon(O, H, P)
droit = Angle(P, H, O)
d = false
e = false
β = If(Angle[P1, O, P, Vector[(0, -1, 0)]]  <  π, Angle[P1, O, P, Vector[(0, -1, 0)]], Angle[P1, O, P, Vector[(0, -1, 0)]] - (2 * π))
surfbasse = Surface(((r * cos(φ)) * cos(θ)), ((r * cos(φ)) * sin(θ)), (r * sin(φ)) + r, φ, -1.5708, β, θ, 0, 6.28319)
surfhaute = Surface(((r * cos(φ)) * cos(θ)), ((r * cos(φ)) * sin(θ)), (r * sin(φ)) + r + Ecart, φ, β, 1.5708, θ, 0, 6.28319)