如何用LISP玩转树结构？

Lispboy

wowan1314 发表于 2013-5-20 12:29
不知道是不是我把简单的问题复杂化了。。。。。

下面这个表估计也表达的不对。。 我还没想明白这个树状 ...

你图上的 B和D  及 C和E 用分吗？ 并没有圆。

另外，看你把表列出来了，应该知道怎么构造，那么你现在的问题是 选 树根那个线，然后把这些数据都给找到？ 这些线是 PLINE 还是 LINE ？

还有，以后你建好表后，你希望能知道 D下有多少圆？ E下有多少圆什么的？

wowan1314

Lispboy 发表于 2013-5-20 14:59
你图上的 B和D  及 C和E 用分吗？ 并没有圆。

另外，看你把表列出来了，应该知道怎么构造，那么你现在 ...

B.D要分开呀。都是单独的线段。 下面接的圆也一样。但是要分别对待都要标注管径.

我列的表应该是错误的。我觉的表的结构还是不合理。

选树根我能把所有的数据都找到。比如选树根然后对树根的两点P1 P2分别（ssget "c" P1 P1）

然后对找到的线也分别（ssget "c' p1）.递归下就找到所有的线了。

这个问题我真还没想好。。   你可以先想想如果你来做这个程序，你怎么做

xshrimp

题目要交待清楚,不是给排水专业的可能不好理解.

wowan1314

xshrimp 发表于 2013-5-20 16:45
题目要交待清楚,不是给排水专业的可能不好理解.

我也写出来一个！ 从树根开始标注。一直到树叶。运算次数太多。时间之久令人发指！

又看了看你发的那个理正的演示。才想到应该从树叶逆向运算。这样速度肯定可以大幅的减小
因为从树根开始算，每个线段都是独立的运算，而从树叶开始则可以利用上一级的计算结果！

xshrimp

编的程序如果共享给大家,大家的节约的时间就多了.不过对于自己是没有什么好处罢了.最多有点小小的成就感而已.

Free-Lancer

wowan1314 发表于 2013-5-20 16:48
我也写出来一个！ 从树根开始标注。一直到树叶。运算次数太多。时间之久令人发指！

又看了看你发的那 ...

你有没有分析那些 圆 和 线 带没带扩展数据？很多专业软件的圆是程序插入并生成的，既是专业软件肯定不会用“简单的实体”完事，会不会有些关联记录？
如果靠程序硬算肯定要费时费力的，尤其是 Lisp 涉及拓扑运算，如果能用 Civil 或者 Map 中的那些函数可能会大大提高效率的

wowan1314

xshrimp 发表于 2013-5-20 20:58
编的程序如果共享给大家,大家的节约的时间就多了.不过对于自己是没有什么好处罢了.最多有点小小的成就感而 ...

去年才发现我也能编点简单的程序！以前都是破解你的程序呢！现在还在用你的函数库！

wowan1314

Free-Lancer 发表于 2013-5-20 21:16
你有没有分析那些 圆 和 线 带没带扩展数据？很多专业软件的圆是程序插入并生成的，既是专业软件肯定不会 ...

专业实体肯定有点扩展数据！不过就本程序来说费时的不是那点扩展数据！还是算法问题！
如果能用好的算法搞出来！估计时间差别不会那么巨大！

Lispboy

wowan1314 发表于 2013-5-20 16:48
我也写出来一个！ 从树根开始标注。一直到树叶。运算次数太多。时间之久令人发指！

又看了看你发的那 ...

现在的硬件，时间还能有发指的情况？ 是不是哪个地方死循环了啥的。贴代码上来吧。

Lispboy

wowan1314 发表于 2013-5-20 21:33
去年才发现我也能编点简单的程序！以前都是破解你的程序呢！现在还在用你的函数库！

那你进步神速啊，话说能破解别人的工具的，功力肯定要比只能自己写要强，因为读别人的程序是很难的。

Lispboy

wowan1314 发表于 2013-5-20 16:48
我也写出来一个！ 从树根开始标注。一直到树叶。运算次数太多。时间之久令人发指！

又看了看你发的那 ...

递归就是要先找到一个树枝的最下面的叶子啊，是叶子找数据入表，然后不就递归回上一层了嘛，然后处理上一层的。 因为是“叶子”才有那个圆对不？

Lispboy

wowan1314 发表于 2013-5-20 21:42
专业实体肯定有点扩展数据！不过就本程序来说费时的不是那点扩展数据！还是算法问题！
如果能用好的算法 ...

天正的啊。其实研究程序，研究算法也是一种“放松”啊，接出来一道题那快感，你说呢。