[编程申请]：求教

SGLDS

AUTO LISP可否有进行积分计算的功能？

XDSoft

最初由 SGLDS 发布
[B]AUTO LISP可否有进行积分计算的功能？ [/B]

LISP仅仅是一种语言，只要你有合适的算法，都是可以实现的。

ll_j

没有！Autolisp所长不是计算，而是与Acad交互，只有一些基本数学函数（联机帮助）：
(~ int)
返回参数的按位非（即 1 的补码）
(1+ number)
返回参数增 1 后的结果
(1- number)
返回参数减 1 后的结果
(abs number)
返回参数的绝对值
(atan num1 [num2])
返回一个数的反正切值（以弧度为单位）
(cos ang)
以实数形式返回一个以弧度为单位的角度的余弦值
(exp number)
返回常数 e (2.718282...) 的指定次幂的值
(expt base power)
返回以某指定数为底数的若干次幂的值
(fix number)
截去实数的小数部分，将它转换成整数后返回该整数
(float number)
将一个数转换成实数后返回
(gcd int1 int2)
返回两个整数的最大公约数
(log number)
返回一个实数的自然对数
(logand int int ...)
返回一个整数表中的各数按位逻辑与 (AND) 的结果
(logior int int ...)
返回一个整数表中的各数按位逻辑或 (OR) 的结果
(lsh int numbits)
返回某整数作指定次逻辑移位后的结果
(max number number ...)
返回给定的各数中的最大者
(min number number ...)
返回给定的各数中的最小者
(minusp number)
检查某个数是否是负数
(rem num1 num2 ...)
将第一个数除以第二个数，并返回余数
(sin ang)
以实数形式返回一个以弧度为单位表示的角度的正弦值
(sqrt number)
以实数形式返回一个数的平方根
(zerop number)
检查一个数的求值结果是否为 0

相对复杂的函数需要自己定义，如定义正切函数：
(defun tan(x) (/ (sin x) (cos x)))

输入“(tan (/ pi 4))”，返回1.0。

zhynt

任何复杂的计算，都是由许许多多的简单的计算组成的。