|
;;由 sin 值返回角度(弧度),返回值位于 -pi/2 ~ pi/2
(defun csin (num / n tan)
(if (and (<= num 1.)
(>= num -1.)
)
(progn
(setq n (sqrt (- 1. (* num num)))
tan (/ n num)
)
(atan tan)
)
)
)
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )
GMT+8, 2024-4-28 22:21 , Processed in 0.224733 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.