Ho ottenuto questo programma, modificanto il precedente.
Ho assegnato alla variabile libera <raggio della 3a crc>
il valore di una delle altre 2 crc.

A = (-2, 0)
B = (1, 0)
a = Segment(A, B)
C = Point(a)
c = Circle(A, C)
d = Circle(B, C)
b = Radius(c)
e = Circle(A, b + Radius[c])
g = Circle(B, b + Radius[d])
D, E = Intersect(e, g)
f = Circle(D, b)