[LUG.ro Mix] Un problema real de coincidencia...

[Horacio Castellini]

> Prefiero esperar la respuesta del Dr. Castellini.

Esta es una respuesta obtenida usando el matemáticas...

nn = 104;
n = 0;
Do[
xa = Random[Real, {0, 8}]; xe = Min[8, xa + 1];
ya = Random[Real, {0, 8}]; ye = Min[8, ya + 1];
za = Random[Real, {0, 8}]; ze = Min[8, za + 1];
fx = UnitStep[x - xa]*UnitStep[xe - x];
fy = UnitStep[x - ya]*UnitStep[ye - x];
fz = UnitStep[x - za]*UnitStep[ze - x];
If[Integrate[fx*fy*fz, {x, 0, 8}] > 0, n++], {nn}]

N[n/nn]
0.0438

Y da p=0.0438 ,,,  1/8^3=0.00195....

Una forma de razonarlo es en forma geométrica usando la medida de
Laplace sobre casos favorables divididos casos posibles....
entonces....

Ese es mi primer resultado, p = (1 + 7*3)/8^3 = 22/512 ~= 0.04296875, con
una aproximación razonable.