chamous 发表于 2005-12-31 13:59:00

已知三边求三角形的一个角

<P>在此先谢谢各位大哥!</P>
<P>LISP函数中没有反余弦函数,现有已知三边求三角形一个角的情况也就是说求arccosX的值,请问各位大哥怎样解决.定义这样的函数如何定义呢?</P>
<P>小弟谢谢各位大哥.</P>

Andyhon 发表于 2006-1-2 16:30:00

<P>去找一个已知三边求面积的公式</P>
<P>换算出高度,再用此直角三角形关係求相关角</P>

north911 发表于 2006-1-2 17:03:00

<P>这个只是个数学问题，把公式都写出来程序也就出来了</P>

chamous 发表于 2006-1-2 20:00:00

高！实在是高！谢谢你们！

cable2004 发表于 2010-12-3 22:36:08

(defun c:hl(/ p1 p2 p3 a b c d h s p an1)
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n插入点："))
(setq a (getreal "\n输入第一条边长度"))
(setq b (getreal "\n输入第二条边长度"))
(setq c (getreal "\n输入第三条边长度"))
(setq p (/ (+ a b c) 2))
(setq s (sqrt (* p (- p a) (- p b) (- p c))))
(setq h (/ (+ s s) a))
(setq d (sqrt (- (* c c) (* h h))))
(setq p2 (polar p1 0 a))
(setq an1 (atan h d))
(setq p3 (polar p1 an1 c))
(command "pline" p1 p2 p3 "c")
(prin1))

细看涛生 发表于 2012-9-18 16:41:51

1，求角用余弦定理。
2,定义函数可用级数展开或迭代
页: [1]
查看完整版本: 已知三边求三角形的一个角