’2点間の距離を返す DEF LENGTH(X1,Y1,X2,Y2) DX=X2-X1 DY=Y2-Y1 RETURN SQR(DX*DX+DY*DY) END