CDN加速镜像 | 设为首页 | 加入收藏夹
当前位置: 首页 资源下载 源码下载 数值算法/人工智能 人工智能/神经网络/遗传算法

文件名称:listexp

  • 所属分类:
  • 标签属性:
  • 上传时间:
    2013-03-16
  • 文件大小:
    528byte
  • 已下载:
    0次
  • 提 供 者:
  • 相关连接:
  • 下载说明:
    别用迅雷下载,失败请重下,重下不扣分!

介绍说明--下载内容来自于网络,使用问题请自行百度

一组扩充的表处理函数

(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

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 搜珍网是交换下载平台,只提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。更多...
  • 本站已设置防盗链,请勿用迅雷、QQ旋风等下载软件下载资源,下载后用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或换浏览器;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.

相关评论

暂无评论内容.

发表评论

*快速评论: 推荐 一般 有密码 和说明不符 不是源码或资料 文件不全 不能解压 纯粹是垃圾
*内  容:
*验 证 码:
搜珍网 www.dssz.com