qinleilei 发表于 2014-11-26 15:37:17

本帖最后由 qinleilei 于 2014-11-26 15:40 编辑

feng582304 发表于 2014-8-11 00:35 static/image/common/back.gif

用了好久，发现了个漏洞，把不是同心圆的圆也选上了，传上附件，希望大哥有空帮忙看下是这么回事，先谢谢了！

feng582304 发表于 2014-11-26 23:24:21

qinleilei 发表于 2014-11-26 15:37 static/image/common/back.gif
用了好久，发现了个漏洞，把不是同心圆的圆也选上了，传上附件，希望大哥有空帮忙看下是这么回事，先谢谢 ...
这是一个巧合，因为误选的那两个圆的圆心各向相减后再相加刚好归零。
只要把(abs (apply '+ (MAPCAR '- (cadr (car li)) (cadr x))))
改为(apply '+ (MAPCAR 'abs (MAPCAR '- (cadr (car li)) (cadr x))))
就可以解决问题了。

sfzyr 发表于 2022-8-25 03:23:29

zctao1966 发表于 2014-8-13 12:48
①先选择所有的圆
②获取圆的圆心，组成表1
③删除重复的圆心，组成新的圆心表2


这个源程序能否给一个我
页: 1 2 [3]
查看完整版本: 关于同心圆的判断与筛选。请各位高手帮帮忙