Pulgar(x) = If[0 ≤ x ≤ Infinity, (0.1 * x) + 20]
Yastá(x) = If[0 ≤ x ≤ Infinity, (0.25 * x)]
A = Intersect(Pulgar, ec1)
B = Intersect(Yastá, ec1)
DoblePulgar(x) = If[0 ≤ x ≤ Infinity, (0.2 * x) + 40]
C = Intersect(Pulgar, Yastá, (133.33333333333334, 33.333333333333336))
D = Intersect(Yastá, DoblePulgar, (800.0000000000001, 200.00000000000003))
F = Intersect(DoblePulgar, ec1)