(defun point (x y) (float-vector x y)) (defun init-coordinates-property nil (put 's 'coordinates (point 0 3)) (put 'a 'coordinates (point 4 6)) (put 'b 'coordinates (point 7 6)) (put 'c 'coordinates (point 11 6)) (put 'd 'coordinates (point 3 0)) (put 'e 'coordinates (point 6 0)) (put 'f 'coordinates (point 11 3)))pointは座標点を与える関数です. 以下で座標間の距離を求める関数が必要となるので, 関連した関数群が下のようになっているとしておきます.