lisp里面选集SS1 和 选集SS2 如何合并成选集SS？ 还有就是 我用复制命令复制了多个图元 (command "copy" s

Posted 2023-05-17

;测试命令test
(defun c:test()
(if (setq ss1 (ssget))
(if (setq ss2 (ssget))
(progn
(setq ss (hbxcj ss1 ss2));选集SS1 和 选集SS2 合并成选集SS
(command "_copy" ss "" pause)
)
)
)
(princ)
)
;将两个选择集合并为一个选择集返回
(defun hbxcj(Xss1 Xss2 / Xss i)
(setq Xss (ssadd)
i -1
)
(repeat (sslength Xss1)
(ssadd (ssname Xss1 (setq i (1+ i))) Xss)
)
(setq i -1)
(repeat (sslength Xss2)
(ssadd (ssname Xss2 (setq i (1+ i))) Xss)
)
Xss
) 参考技术A 一起选择，最后用一个p就可以了吧

挖掘频繁项集

一，Apriori算法

Apriori算法的基本思路：

        产生L1候选集，剪枝（去掉L1里面不符合最小支持度的），连枝产生L2候选集，剪枝（去掉候选集不在数据集里的和不满足最小支持度的），产生L3。。。直到不能再产生新的候选集（具体判定就是连枝的时候，k-2项集不存在，这时不能生成k项集）

算法中需要注意的细节

        为了在统计L1候选集的频次的时候，能把L1作为字典的健，要把L1进行frozenset。用map()函数，把list里面的每一个元素都转换成set，转换之后会有重复的set（set的不重复性指的是set内部）。

        if a.issubset(b)：如果a是b里面的子集则返回为真

        数据集要预处理转换成set形式，这样才能保证数据集的安全性