[讨论]：清除重线、删短线的编程思想？

DEA

LISP就别搞了，太慢，前段时间做了一个，(1000000个实体)运行几个小时，现在只能学ARX了。

eachy

最初由 DEA 发布
[B]LISP就别搞了，太慢，前段时间做了一个，(1000000个实体)运行几个小时，现在只能学ARX了。 [/B]

用过这两个程序吗？Lisp自有Lisp的优势
http://www.xdcad.net/forum/showt ... 2232275#post2232275
http://www.xdcad.net/forum/showt ... 2367219#post2367219

小玩童

程序我不要，我想要原理，有原理自己写才过瘾！

taner

最初由 小玩童 发布
[B]程序我不要，我想要原理，有原理自己写才过瘾！ [/B]

看懂了人家写的程序,不就有原理了吗?或许对你自己写有参考价值呢!

snoopychen

也谈谈个人对LISP程序库的看法
1. 个人不相信没有人在学LISP的过程中可以不看别人的范例，不学别人的范例。
   LISP的语言相对一些其他语言是比较古怪的，比如MAPCAR,ASSOC这些东西
   不看范例几乎是不可能的。而且在看其他人的程序中，肯定不断的会去赞叹
   一下人家的程序编的好在哪里，下次自己也改变语法，写一些更加简洁而
   有限的语言。只有在不断的学习中进步。当你哪一天看任何程序段都觉得
   不过如此的时候，应该就是登峰造极了。
2. 有其他人编写的程序，要是刚好可以符合自己的需要，就不一定要再去重写它
   了，假如有源码的话，可能会修改一下更符合自己的要求，实在不行再去编程
   看看人家的程序，学学人家的思路，就不必作太多的无用功呢。因此，现在在
   硬盘上堆积了几千个lisp程序，作个索引，需要的时候查找一下，大部分的需求
   都能实现，除非一些很专业或很特殊的东西得自己编，应该都不用费太多的劲。
3. 思路是最重要的，思路想通了，应该就可以写出程序，最多就是语言繁简，效率
   高低的问题了。
4. LISP是一种美妙的语言，感觉很象语言中的杨过或者令狐冲，相对比FORTRAN
   象严肃的郭大侠。它的自由自在，让人觉得就像一位亲切的朋友，它用几个基本
   函数就构建起一幢摩天的大楼，就好像用几道几何原理就构建起欧几理德的经典
   几何一样，让人无尽的去发挥其创造力。多年前曾经浸迷于利用尺规的简单工具进行作图，现在却迷醉于lisp的无穷想象。
   autocad可能有一天也会消亡，但lisp会象一位老朋友一样跟着我们一起到老

Underway

最初由 eachy 发布
[B]
重线有两种
1 完全重复
2 较短的线和较长的线重叠 [/B]

最初由 小玩童 发布
[B]程序我不要，我想要原理，有原理自己写才过瘾！ [/B]

1.  (equal  Line1角度 Line2角度  精度)
2.  (equal  (rem Line1角度 Pi) (rem (angle Line1pt Line2Pt)  Pi)  精度)
3.  分析Line1pt1 Line1pt2 Line2pt1 Line2pt2  四点的排列分布
4.  较短的线和较长的线重叠留长线

狂刀

判断线l1在另一直线l2之间：
简化为，判断l1 顶点p11,p12分别在l2的两个顶点p21,p22之间，
即p21,p11,p22共线;  p21,p12,p22共线
(and
(equal (distance p21 p22)(+(distance p21 p11)(distance p11 p22)) 1e-4)
(equal (distance p21 p22)(+(distance p21 p12)(distance p12 p22)) 1e-4)
)
本判断适合重合及部分重合

个人认为：ｌｉｓｐ有ｌｉｓｐ的优势，语句灵活，短小精干，一般应用速度上感觉影响不大；对于重复大量的计算，能用ａｒｘ，ｖｂａ的就尽量用．
另外，对ｌｉｓｐ，不同的算法得出的差异是比较大的．可参考
和尚吃饼的论题，因此，写ｌｉｓｐ，我觉得程序结构和算法是最重要的，尽量减少计算