[求助]求三角函数的正切值

lht

已知角度为A，怎样求它的正切值tgA，另已知正切值tgA，怎样求得A。算式如下：
tgA=cosB*tgC     求A

ZZXXQQ

1、(DEFUN TAN (AN) (/ (SIN AN) (COS AN)))

2、(ATAN (* (COS B) (TAN C)))

lht

谢谢ZZXXQQ解决了我的问题！

zml84


;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：Alisp只提供了: sin cos atan　三个三角函数;　
;;;　　　　　本文件扩展函数: asin acos tan　 　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;============================================================
;;;=======第１个.反正弦函数====================================
;;; 参　数：a---正弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun asin (a)
(if (and
(= (numberp a) T)
(<= (abs a) 1.0)
)
(if (= a 1.0)
(* pi 0.5)
(atan (/ a
(sqrt (- 1 (* a a)))
)
)
)
nil
)
) ;结束defun
;;;============================================================
;;;=======第２个.反余弦函数====================================
;;; 参　数：a---余弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun acos (a)
(if (and (= (numberp a) T)
(<= (abs a) 1.0)
)
(if (= a 0.0)
(* pi 0.5)
(atan (/ (sqrt (- 1 (* a a)))
a
)
)
)
nil
)
) ;结束defun
;;;============================================================
;;;=======第３个.正切函数======================================
;;; 参　数：a---角度值，单位为弧度。　　　　　　　　　　　　　
;;; 返回值：返回正切值。　　　　　　　　　　　　　　　　　　　
(defun tan (a)
(if (= (numberp a) T)
(/ (sin a) (cos a))
nil
));结束defun
;;;============================================================

革天明

zml84 发表于 2007-12-4 09:35
;;;============================================================
;;;自定义补充　三角函数　　　　　　 ...

请问自定义函数中如何区别局部变量和全局变量？还是说自定义函数没有全局变量？

nzl1116

(defun funcname (arg... / var...)
  (expr...)
)
表达式中的变量,只要在"/"后面声明了的就是局部变量,没声明的就是全局变量
局部变量在函数调用结束后,值为nil,而全局变量在函数调用结束后仍然保持最后一次
计算的值。

jyzas

zml84 发表于 2007-12-4 09:35
;;;============================================================
;;;自定义补充　三角函数　　　　　　 ...

正切函数缺少判断(cos a)/=0

lzg8877

哇哈哈　我来鸟　学习学习