[LISP]如何定义反余切(Acot)函数

kic · 发表于 2006-3-27 19:02:00

急需,在线等待,大家指点!!!!!!!!!!!!!!!!!!!!

ljpnb · 发表于 2006-3-27 20:44:00

见7楼的.

kic · 发表于 2006-3-28 15:54:00

没有反余切函数的定义啊，！！！！

ljpnb · 发表于 2006-3-28 16:00:00

那个链接的7楼你仔细看一下，是不是这个

(defun ACOT (X) ; Inverse cotangent
(- (/ pi 2.0) (atan X))
)

kic · 发表于 2006-3-30 10:51:00

呵呵看到了!!谢谢!!!!还有一个问题!!!

这样定义的反余玄

(defun acos(/ X)
(setq ACOS (- (/ pi 2.0)(atan (/ X (sqrt (- 1.0 (expt X 2)))))))
)

为什么提示说: 错误: 参数太多

ljpnb · 发表于 2006-3-30 11:06:00

你写的本身格式就是不对，多看看别人写的或是帮助里

(defun acos (X)
(- (/ pi 2.0) (atan (/ X (sqrt (- 1.0 (expt X 2))))))
)

使用格式,在命令行输入

(acos 0.5) 这个0.5就是已知的余弦值

账号		自动登录	找回密码
密码			注册