I segmenti rossi sono lunghi uguali poiche' 
il vertice comune sta sull'asse dei loro estremi

SumRays = 6 (slider from 1 to 10, step 1)
FA = Point(xAxis)
trascina = Point(Circle[FA, SumRays])
sumRays = Segment(FA, trascina)
FB = Point(xAxis)
asse = LineBisector(FB, trascina)
I = Intersect(asse, sumRays)
rB = Segment(FB, I)
i = Segment(I, trascina)
j = Segment(FB, trascina)