如何使用其他三角函数

daiyc88

autolisp只支持sin,cos,atan,哪其他的三角函数怎么用啊，各位大吓

xyp1964

(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[/COLOR]
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
dispbbs.asp?boardID=3&ID=37554&page=1|;

ACOS          反余弦                     (ACOS 数值)
ASIN          反正弦                     (ASIN 数值)
COSH          双曲余弦函数               (COSH 弧度值)
COT           角度的余切值               (COT 弧度值)
CSC           角度的余割值               (CSC 弧度值)
SEC           角度的正割值               (SEC 弧度值)
SINH          双曲正弦函数               (SINH 弧度值)
TAN           角度的正切值               (TAN 弧度值)
TANH          双曲正切函数               (TANH 弧度值)

daiyc88

多谢!多谢!多谢!多谢!多谢!多谢!

daiyc88

试过了，真爽

xialiang

请问这些函数你们是怎么查到的?

我买的书里!和下载的电子版的函数集里都没有啊!

ZZXXQQ

xialiang发表于2005-10-19 15:20:00 请问这些函数你们是怎么查到的? 我买的书里!和下载的电子版的函数集里都没有啊!

书里当然没有，是xyp版主自定义的。

龙龙仔

原有资讯:
序 号:13478
标 题:【解决方案】LISP常用数学函数... (875字)
发信人:秋枫哥
时 间:2001-7-27 14:49:30
阅读次数:80
详细资讯:
(defun tg(x)
  (/ (sin x) (cos x))
)

(defun ctg(x)
  (/ (cos x) (sin x))
)

(defun power(x y)
  (expt x y)
)

(defun ln(x)
  (log x)
)

(defun lg(x)
  (/ (log x) (log 10))
)

(defun round(x)
  (fix (+ x 0.5))
)

(defun dtor(d)
  (/ (* d pi) 180)
)

(defun rtod(r)
  (/ (* r 180) pi)
)

(defun arctg(r)
  (atan r)
)

(defun arcsin(r / result )
  (if (and (/= 1 (abs r))(/= 1.0 (abs r)))
      (setq result (atan (/ r (sqrt (- 1 (* r r))))))
      (cond ((< r 0) (setq result (/ pi -2.0)))
            ((> r 0) (setq result (/ pi 2.0)))
      )
  )
  result
)

(defun arccos(r / result)
  (if (and (/= r 0)(/= r 0.0))
  (setq result (atan (/ (sqrt (- 1 (* r r))) r)))
  (setq result (/ pi 2))
  )
  (if (< result 0)
  (setq result (+ pi result))
  )
  (if (or (= r -1)(= r -1.0))(setq result pi))
  result
)

 (defun ACOS (X) ;Inverse cosine
  (- (/ pi 2.0) (atan (/ X (sqrt (- 1.0 (* X X))))))
)
(defun ASIN (X) ; Inverse sine
  (atan (/ X (sqrt (- 1.0 (* X X)))))
)
(defun ACSC (X) ; Inverse cosecant
  (+ (atan (/ 1.0 (sqrt (- (* X X) 1.0)))) (* (/ pi 2.0)
    (- (if (< X 0) (- 1.0) (+ 1.0)) 1.0)))
)
(defun ASEC (X) ; Inverse secant
  (+ (atan (sqrt (- (* X X) 1.0))) (* (/ pi 2.0)
    (- (if (< X 0) (- 1.0) (+ 1.0)) 1.0)))
)
(defun ACOT (X) ; Inverse cotangent
  (- (/ pi 2.0) (atan X))
)
(defun SEC (X) ; Secant
  (/ 1.0 (cos X))
)
(defun CSC (X) ; Cosecant
  (/ 1.0 (sin X))
)
(defun TAN (X) ; Tangent
  (/ (sin X) (cos X))
)
(defun COT (X) ; Cotangent
  (/ (cos X) (sin X))
)

kic

请教高手们啊,斑竹发的那些函数怎么用啊,试了好多次都不能正确使用,能不能给小弟发个lisp版的哦

无痕

楼上的兄弟，我被你晕到家了

kic

呵呵,我本小菜嘛,不要被我吓到就好,如何定义,如何调用这些函数 ,一直没有搞明白!!!!指点一下哦!!!