sicp ex 2.13

немного по короче, чем везде, где я видел:
если интервалы заданы как

(make-center-percent c1 (* p1 100))
(make-center-percent c2 (* p2 100))

, то произведение

[c1(1-p1);c1(1+p1)]*[c2(1-p2);c2(1+p2)] =
 [c1*c2*(1-(p1+p2)+p1*p2);c1*c2*(1+(p1+p2)+p1*p2)] ~=
 [c1*c2*(1-(p1+p2));c1*c2*(1+(p1+p2))]

Т.о. p* ~= p1+p2, а c* = c1*c2.
Где результат равен

(make-center-percent c* (* p* 100))