同一平面上にある４点が、一般的な位置関係にあるとき、４点を２点ずつのペアに分けて、ペアを通る直線を２本引いたときの交点を出したい 散らし書きコード my.2d.intersect <- function(v1,v2,v3,v4){ M <- matrix(c(v2[1]-v1[1],v3[1]-v4[1],v2[2]-v1[2],v…