去教育版戳记讨论及源码(ARX,LISP版)

CAD教育版戳记有时候很讨厌,一旦图中有这个戳记,就会传染到其它图中。就是说从有戳记的图中拷贝到没戳记的,没戳记的也会带上。

而且这个戳记不太好消除。

对于2015-2018,Autodesk公司似乎已经把这个戳记移除掉了,也就是说,用这些版本的CAD打开图,看不到戳记,也不会弹出那个戳记警告框。

保存之后,图中不会再有了(这点我没有每个版本验证)。但该死的是到了2019后,这个又出现了,不知道autodesk公司在玩什么。

关于去教育版有很多方式,ARX的方式最有效。我这里提供用了ARX源码。以及附带的生成的ARX程序。

这个程序的源码 是从网上的 wdzhangsl 引申过来,特此深表感谢!

程序的原理是从数据库指针找到戳记的偏移地址,修改此处的值,便达到了消除。

因为原代码有些重复和繁琐,特此精简,并且升级到2019。经过测试,程序有效。

因为有些CAD版本我是没办法在自己机器安装,就没有一个个CAD版本进行测试其中的偏移地址。

如果有网友能测试到我程序中没有的CAD版本的值,请告诉我或者跟帖。多谢!

牛顿分形的LISP程序

牛顿分形简介:

在复数域上使用牛顿迭代生成分形图像,对函数公式\(F(z) = z^3 – 1\)在复数域上面有三个根,一个是1,另外两个是复数:

$$
\left \{
\begin{array}{ll}
Z_1=1 \\
Z_2=\frac {-1+\sqrt{3}i}{2} \\
Z_3=\frac {-1-\sqrt{3}i}{2}
\end{array}
\right.
$$

根据计算出来根的值不同转换为RGB三种不同的颜色,根据迭代次数的多少设置颜色值的大小,即颜色强度。

牛顿分形

下面是用LISP代码的实现。

一元二次、三次、四次方程求解和复数的运算

对一元三次或者四次方程,是有数学公式求精确解的,可以不用迭代法。参考了维基的上的方法,现在我贴出一元二次、三次或者四次方程的LISP求解方法。使得在求解效率可以得到极大提高。
注明: 因为这几个方程的解有可能是复数,所以我对每个解都用表的形式来列出。
如果这个表的第二项为0,那么这个解是实数,否则是复数。
譬如 :\({x^4+3x^3+7x^2+2x-5 = 0}\)