正切函数用LISP好实现么？

liuhaixin88 · 发表于 2014-2-20 09:49

三角函数中的正切函数tanα用LISP好实现么？已知角度值α，能算出结果吗？

vormittag · 发表于 2014-2-20 10:00

正弦余弦相比不就行了？

liuhaixin88 · 发表于 2014-2-20 10:05

vormittag 发表于 2014-2-20 10:00
正弦余弦相比不就行了？

您好！我想要一段这样的LISP代码，就像电脑上的科学计算器那样，输入α值，就可以计算出tanα的值，希望有人可以帮帮我!

Gu_xl · 发表于 2014-2-20 10:19

本帖最后由 Gu_xl 于 2014-2-20 10:22 编辑

liuhaixin88 发表于 2014-2-20 10:05
您好！我想要一段这样的LISP代码，就像电脑上的科学计算器那样，输入α值，就可以计算出tanα的值，希望有 ...

(defun tan (a)(if (not (equal 0. (cos a) 1e-10)) (/ (sin a) (cos a))))

liuhaixin88 · 发表于 2014-2-20 12:19

Gu_xl 发表于 2014-2-20 10:19
(defun tan (a)(if (not (equal 0. (cos a) 1e-10)) (/ (sin a) (cos a))))

谢谢Gu_xl版主大哥的答复！我很荣幸！

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

[讨论] 正切函数用LISP好实现么？