文件名称:listexp
介绍说明--下载内容来自于网络,使用问题请自行百度
一组扩充的表处理函数
(defun chgnth (i v l) 表换元素,用V替换表L中第I个元素
(defun carnth (i l) 表取头,保留表L前面I-1个元素
(defun cdrnth (i l) 表取尾,去除表L后面I个元素
(defun delnth (i l) 删除表L第I个元素
三角函数
(defun tan (v / u) (setq u (cos v)) (if (/= u 0) (/ (sin v) u)))
(defun ctan (v / u) (setq u (sin v)) (if (/= u 0) (/ (cos v) u)))
(defun sec (v / u) (setq u (sin v)) (if (/= u 0) (/ 1 u)))
(defun csc (v / u) (setq u (cos v)) (if (/= u 0) (/ 1 u)))
(defun asin (v) (atan v (sqrt (- 1 (* v v)))))
(defun acos (v) (- (/ pi 2) (asin v-Expanded list processing functions the (defun chgnth (ivl) statement for elements with elements V substitution table L I (defun carnth (il) take the head table reserved table L front I-1 elements (defun cdrnth (il) table take the tail, remove the the Table L behind I elements (the defun delnth (il) delete table L I-elements trigonometric functions (defun tan (v/u) (setq u (cos v)) (if (/ = u 0) (/ (sin v) u))) (defun ctan (v/u) (setq u (sin v)) (if (/ = u 0) (/ (cos v) u) )) (defun sec (v/u) (setq u (sin v)) (if (/ = u 0) (/ 1 u))) (defun csc (v/u) (setq u (cos v)) ( if (/ = u 0) (/ 1 u))) (defun asin (v) (atan v (sqrt (- 1 (* vv))))) (defun acos (v) (- (/ pi 2) ( asin v)))
(defun chgnth (i v l) 表换元素,用V替换表L中第I个元素
(defun carnth (i l) 表取头,保留表L前面I-1个元素
(defun cdrnth (i l) 表取尾,去除表L后面I个元素
(defun delnth (i l) 删除表L第I个元素
三角函数
(defun tan (v / u) (setq u (cos v)) (if (/= u 0) (/ (sin v) u)))
(defun ctan (v / u) (setq u (sin v)) (if (/= u 0) (/ (cos v) u)))
(defun sec (v / u) (setq u (sin v)) (if (/= u 0) (/ 1 u)))
(defun csc (v / u) (setq u (cos v)) (if (/= u 0) (/ 1 u)))
(defun asin (v) (atan v (sqrt (- 1 (* v v)))))
(defun acos (v) (- (/ pi 2) (asin v-Expanded list processing functions the (defun chgnth (ivl) statement for elements with elements V substitution table L I (defun carnth (il) take the head table reserved table L front I-1 elements (defun cdrnth (il) table take the tail, remove the the Table L behind I elements (the defun delnth (il) delete table L I-elements trigonometric functions (defun tan (v/u) (setq u (cos v)) (if (/ = u 0) (/ (sin v) u))) (defun ctan (v/u) (setq u (sin v)) (if (/ = u 0) (/ (cos v) u) )) (defun sec (v/u) (setq u (sin v)) (if (/ = u 0) (/ 1 u))) (defun csc (v/u) (setq u (cos v)) ( if (/ = u 0) (/ 1 u))) (defun asin (v) (atan v (sqrt (- 1 (* vv))))) (defun acos (v) (- (/ pi 2) ( asin v)))
(系统自动生成,下载前可以参看下载内容)
下载文件列表
一组扩充的表处理函数.lsp
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.