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

真龙天子

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

leeyuan

[php] (setq tga (/ (sin a) (cos a)))[/php]

zml84

[php]
;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：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
;;;============================================================
[/php]

真龙天子

谢谢楼上两位朋友的帮助！