[LISP函数]：正切 函数

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;; 正切函数
   
5. (setq *INFINITY* 1.7e308)                ; largest double
   
6. (defun xd-tan (z / cosz)                        ; [fixed]
   
7.   (if (zerop (setq cosz (cos z)))
   
8.     *INFINITY*
   
9.     (/ (sin z) cosz)
   
10.   )
    
11. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;; 正切函数<br /> (setq *INFINITY* 1.7e308)                ; largest double<br /> (defun xd-tan (z / cosz)                        ; [fixed]<br />   (if (zerop (setq cosz (cos z)))<br />     *INFINITY*<br />     (/ (sin z) cosz)<br />   )<br /> )