Comparemos el volumen de agua medido
en el recipiente graduado.

Modifica aquí la graduación.

d = 5 (slider from -5 to 5, step 0.1)
A = (4, -4)
f = Line(A, xAxis)
e = Circle(A, d)
C, D = Intersect(e, f)
n = 15 (slider from 1 to 50, step 1)
a = 10 (slider from -5 to 20, step 0.1)
aa: round(random() * n)
g = Line(A, yAxis)
b = Line(A, xAxis)
c = Circle(A, a)
bb: round(random() * n)
cc: round(random() * n)
i = Segment(A, C)
K = Point(f)
h = Circle(A, a)
j = Line(A, yAxis)
B, E = Intersect(h, j)
k = Segment(B, A)
dis: k / n
F = (15.333710482529117, -3.713344425956739)
p = Circle(F, dis)
l = Line(F, yAxis)
G, H = Intersect(p, l)
u = Vector(F, G)
L1 = Sequence(Translate[C, i * u], i, 0.0, n)
L2 = Sequence(Translate[A, i * u], i, 0.0, n)
L3 = Sequence(Segment[Element[L1, i], Element[L2, i]], i, 0.0, n)
r = Circle(C, a)
m = Line(C, j)
M, N = Intersect(r, m)
s = Circle(K, d)
O, P = Intersect(s, f)
liste1 = Sequence(Translate[K, i * u], i, 0.0, aa)
liste2 = Sequence(Translate[O, i * u], i, 0.0, aa)
q = Segment(M, C)
liste3 = Sequence(Polygon[Element[liste2, i], Element[liste1, i], Element[liste1, i + 1.0], Element[liste2, i + 1.0]], i, 0.0, aa)
B1: B + (0.5, 0.0)
B2: B - (0.0, 0.5)
a_1 = Segment(B2, B1)
b_1 = Segment(M, B1)
poly1, b1, b_2, b2 = Polygon(B, B2, B1)
t = Segment(B2, A)
I = Midpoint(q)
c_1 = Circle(I, d / 2.0)
J, L = Intersect(c_1, q)
d_1 = Circle(I, d / 4.0)
e_1 = Line(I, i)
Q, R = Intersect(d_1, e_1)
f_1 = Line(R, t)
S, T = Intersect(c_1, f_1)
g_1 = Segment(J, S)
h_1 = Segment(S, T)
i_1 = Segment(T, L)
U = (6.705091514143095, 3.9922129783693827)
V = (14, 4)
W = (14, 2)
Z = (6.6850249584026615, 1.9855574043261215)
poly2, u_1, v, w, z = Polygon(U, V, W, Z)
T2: "AGUA \;  = \;  \frac{" + aa + " }{ " + n + "}  \;  RECIPIENTE"
texte1: "Este recipiente graduado está dividido en " + n + " graduaciones iguales."