GeometricScene[{{A.,B.,C.,D.,E.,F.},{a.,b.}},{Line[{A.,E.,B.}],Style[Line[{A.,E.}],Red],Style[Line[{E.,B.}],Blue],Line[{C.,F.,D.}],Style[Line[{C.,F.}],Red],Style[Line[{F.,D.}],Blue],EuclideanDistance[A.,B.]3EuclideanDistance[C.,D.]3a.,EuclideanDistance[A.,E.]3EuclideanDistance[C.,F.]3b.},{EuclideanDistance[E.,B.]3EuclideanDistance[F.,D.],3a.-3b.3(a.-b.)}]