f = If(0 ≤ x ≤ 1, 4 * x * (1 - x))
a = 0 (slider from 0 to 1, step 0.0010)
A: (a, f(a))
d: x = x(A)
K = Point(d)
L = Point(d)
j = Segment(K, L)
texte1: " Gris a=" + (x(A) * 100) + "%"
M = Point(d)
N = Point(d)
k = Segment(M, N)
texte2: "Gris f(a)=" + (floor(f(a) * 100)) + "%"
B = (1.1, -0.2)
C = (1.1, -0.333)
F = (1.1, -0.366)
G = (1.1, -0.5)
poly2, f_1, g_1, i, l, H, I = Polygon(F, G, 4)
g = If(0 ≤ x ≤ 1, x)
J = Intersect(g, d, (0, 0))
O: (a, -0.05)
P: (a, -0.1)
m = OrthogonalLine(J, d)
Q: (-0.1, f(a))
R: (-0.05, f(a))
S: (-0.1, a)
T: (-0.05, a)
poly1, b_1, c, e, h, D, E = Polygon(B, C, 4)