画衣柜的程序

在CAD中画衣柜有时候是一件比较麻烦的事情,对2012以上的版本,可以用动态图块来实现,但还是有点罗嗦。
我下面的程序实现比较简单,只要敲入一个命令,然后你就可以任意布置你的衣柜了。
下面是其实现的代码。

垃圾文件清理工具

在工作中,我们需要清理一些在程序过程中产生的垃圾或者无需保留文件,但是因为不知情或者经常忘记的缘故,这些文件便积累起来,分布在各个目录中,难于查找和删除。特别是对于CAD作图的人来说,有时候形成一些.dwl, .plt, .err, .log, .ac$, .tmp等之类的文件,长期以来,既不美观,又浪费空间,的确有必要清理一下。而且下面这个程序可以帮你达到目的。网上有这样类似的程序,但可能比较庞杂,不会像这样针对特别目的。

凸包的LISP实现

关于凸包的维基解释:在一个实数向量空间V中,对于给定集合X,所有包含X的凸集的交集S被称为X的凸包。

凸包有很多用途,网上流传着很多其他语言的代码,LISP的却很少,下面是我的LISP实现代码:

牛顿分形的LISP程序

牛顿分形简介:
在复数域上使用牛顿迭代生成分形图像,函数公式F(z) = z^3 – 1在复数域上面有三个根,一个是1,另外两个分别是复数-0.5+0.866i 与 -0.5 – 0.866i根据计算出来根的值不同转换为RGB三种不同的颜色,根据迭代次数的多少设置颜色值的大小,即颜色强度。
Newton's Fractal
下面是用LISP代码的实现。