查看会员资料
用 户 名：l****
发送消息- Email：用户隐藏
- Icq/MSN：
- 电话号码：
- Homepage：
- 会员简介：
最新会员发布资源
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