BC = 2

CD=3

Circonferenza circoscritta a ABCD (in rosso) , 
di centro O (2 , 0.1) e raggio OD = 2.0025 

D = Point(xAxis)
O' = Point(xAxis)
c = Circle(O', 2.0)
A = Point(c)
d = Circle(A, 1.0)
e = Circle(D, 3.0)
B' = Intersect(c, d, 2.0)
C' = Intersect(c, e, 1.0)
a = Ray(A, B')
b = Ray(D, C')
poli1, a_1, b', c', d_1 = Polygon(A, B', C', D)
E = Intersect(a, b)
Testopoli1: "Area " + (Name[A]) + (Name[B']) + (Name[C']) + (Name[D]) + " = " + poli1
f = Segment(A, C')
g = Segment(B', D)
γ = Angle(f, b)
β = Angle(g, a)
h = LineBisector(d_1)
distanzaB'C' = Distance(B', C')
TestoB'C': "\overline{" + (Name[B']) + (Name[C']) + "} \, = \, " + distanzaB'C'
B = Point(d)
k = Circle(B, 2.0)
C = Intersect(e, k, 2.0)
poli2, a_2, b_1, c_1, d_2 = Polygon(A, B, C, D)
Testopoli2: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poli2
aread = Area(d)
i = LineBisector(a_2)
O = Intersect(h, i)
p = Circle(O, D)
distanzaO'O = Distance(O', O)
TestoO'O: "\overline{" + (Name[O']) + (Name[O]) + "} \, = \, " + distanzaO'O
F = (2.79091956846483, 2.2173449237771474)
G = (2.507490508201682, 2.0445223260557155)
u = Vector(F, G)
OD = Segment(O, D)
l = Perimeter(poli2)