[求助]LISP中计算角度的问题?

vocabulary · 发表于 2006-4-13 12:48:00

各位大侠：
已知一个直角三角形中角A的对边a的值和斜边c的值，请问LISP有什么函数可以用a和c的值来直接求出角A的角度或夹角弧度？谢谢！

xyh · 发表于 2006-4-17 14:32:00

用(atan num1 [num2]) 间接得到，也可自编反正弦函数
(defun arcsin ( a c / b)
;(setq a 3 c 5)
(setq b (sqrt (- (* c c) (* a a))))
(setq ang (atan a b))
;(setq ang1 (* (/ ang pi) 180))
ang
)

vocabulary · 发表于 2006-4-18 13:45:00

谢谢楼上大侠!

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