yM = 0.7 (slider from 0 to y(G), step 0.05)
A = (0, 0)
B = (1, 0)
c = Circle(A, B)
α = 6.283185307179581 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
C: (cos(α), sin(α))
d = CircleSector(A, B, C)
M: (0, yM)
a = OrthogonalLine(M, yAxis)
D = Point(xAxis)
E = Point(xAxis)
poly1, b, e, f, g, h, F, G, H = Polygon(D, E, 5)
I, J = Intersect(a, poly1)
poly2, i, j, k, l, m, n = Polygon(D, If[y(H)  <  yM, H, D], J, I, If[y(F)  <  yM, F, E], E)
q(x) = If[(x ≥ 3) ∧ (x ≤ 7),(2 * sin((3 * (x - 5))) / ((3 * (x - 5)))) + 0.5]
xP = 3 (slider from 3 to 7, step 0.01)
s1 = Segment((xP, 0), (xP, q(xP)))
s2 = Segment((3, 0), (7, 0))