CrossRatio コマンド
CrossRatio( <点A[.small]>, <点B[.small]>, <点C[.small]>, <点D[.small]> ):: 同一直線上にある4つの点 A, B, C, Dに対して、クロス比 λ ：
λ = AffineRatio[B, C, D] / AffineRatio[A, C, D] を計算する．
CrossRatio((-1, 1), (1, 1), (3, 1), (4, 1)) 出力： 1.2
CrossRatio( <点A[.small]>, <点B[.small]>, <点C[.small]>, <点D[.small]> ):: 同一直線上にある4つの点 A, B, C, Dに対して、クロス比 λ ：
λ = AffineRatio[B, C, D] / AffineRatio[A, C, D] を計算する．
CrossRatio((-1, 1), (1, 1), (3, 1), (4, 1)) 出力： 1.2