计算圆弧的凸出度。

wizman · 发表于 2022-7-6 11:46:42

buzz lisp总是需要弧度的角度

The Buzzard · 发表于 2022-7-6 11:49:21

似乎无论我用哪种方式写，它的值都是错误的。

(setq BF1# (atan (/ (MD_DTR 90) 4))
(defun MD_DTR (a)(* pi (/ a 180.0)))

返回0.374197

wizman · 发表于 2022-7-6 11:53:26

您使用了arctan函数，而不是切线函数

The Buzzard · 发表于 2022-7-6 11:56:41

找不到切线函数。

wizman · 发表于 2022-7-6 12:00:50

不是内置函数，我已经在第一页为您发布了…'-）

The Buzzard · 发表于 2022-7-6 12:02:51

好了，我明白了。

谢谢

The Buzzard · 发表于 2022-7-6 12:06:14

完美的这正是我需要的。

再次感谢wizman

wizman · 发表于 2022-7-6 12:09:10

很高兴帮你打电话…'-）

gile · 发表于 2022-7-6 12:12:42

你好

好了，没有必要测试余弦是否等于0来避免错误。
cos LISP函数的实现使得（cos（/pi 2））返回6.12323e-017和（cos（*pi 1.5））-1.83697e-016，而不是0。

因此，我目前使用：
（defun tan（a）（/（sin a）（cos a）））

wizman · 发表于 2022-7-6 12:17:15

感谢gile提供的信息，有什么原因导致与0的差异或只是acad再次四舍五入？

[编程交流] 计算圆弧的凸出度。