[LISP函数]：反余弦和反正弦

ywqq · 发表于 2004-8-27 18:00:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

由于lisp里没有反余弦和反正弦函数,
如何求反反余弦和反正弦

aidraft · 发表于 2004-8-27 19:48:12

用atan和三角函数关系求

ywqq · 发表于 2004-8-29 18:06:22

如已知三边a,b,c，如何求出cosC=(a*a+b*b-c*c)/2ab
C角没有反余弦很难算。

aidraft · 发表于 2004-8-29 20:52:05

如果你知道COSC的值，下面函数可算出C的值：
(defun GetC (cosc / C)
  (setq C (atan (sqrt (1- (/ 1 (* cosc cosc))))))
  (if (minusp cosc)
(setq C (- PI C)))
  C
)

ywqq · 发表于 2004-9-3 22:30:19

那反正弦如何求?
(由于抛开课本太久了,公式关系已不大记得,请指导,谢了)

aidraft · 发表于 2004-9-4 07:23:56

没有我久吧...:)
[php];;如果角度在0-180度之间
(defun GetC (sinc / C)
(setq C (atan (sqrt (/ (* sinc sinc) (- 1 (* sinc sinc))))))
(if (minusp sinc)
(setq C (- PI C)))
C
)[/php]

ll_j · 发表于 2004-9-4 08:06:37

基本关系式：
arcsin x = arctg[x/sqrt(1-x^2)] = pi/2 - arccos x = arccos[sqrt(1-x^2)]
arccos x = arctg[sqrt(1-x^2)/x] = arcsin [sqrt(1-x^2)]
arcctg x = arctg(1/x)

sjywj · 发表于 2004-9-5 18:26:55

赞同

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

[LISP函数]：反余弦和反正弦

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子