[LISP程序]：计算两点间的距离

whp5924 · 发表于 2005-6-3 13:09:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Function Distance(Point1, Point2) As Double
Dim dist As Double
On Error Resume Next
For i = LBound(Point1) To UBound(Point1)
dist = dist + ((Point1(i) - Point2(i)) ^ 2)
If Err Then Exit For
Next
Distance = Sqr(dist)
End Function

tanglupeng · 发表于 2005-8-26 10:06:04

楼主，如何操作，能细说一下嘛，本人笨笨啊，实在是看不明白！

shangying · 发表于 2005-8-26 10:08:24

这是什么语言,VB吗

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：计算两点间的距离

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子