CrossRatio Command

CrossRatio( <Point A>, <Point B>, <Point C>, <Point D> ):: Calculates the cross ratio λ of four collinear points A, B, C and D, where:_λ = AffineRatio[B, C, D] / AffineRatio[A, C, D]._