（XD::MATH:Range）给起始数、结束数和步长求中间表

marting · 发表于 2017-8-3 10:05:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::MATH:Range (s e i)
(if (or (and (> i 0) (<= s e)) (and (< i 0) (>= s e)))
(cons s (XD::MATH:Range (+ i s) e i))
)
)

命令: (xd::math:range 2 12 4)
(2 6 10)

sh_h · 发表于 2017-8-3 10:28:13

学习了，谢谢大师分享！！！

aimisiyou · 发表于 2017-8-3 11:07:24

本帖最后由 aimisiyou 于 2017-8-3 11:08 编辑

(XD::MATH:Range 2 100000 4)
命令: 'VLIDE 出现硬错误 ***
已达内部堆栈限制 (模拟)
递归还是慎用为好！

marting · 发表于 2017-8-3 11:20:50

aimisiyou 发表于 2017-8-3 11:07

谢谢，具体情况具体应用吧。大师，给写个迭代的？

aimisiyou · 发表于 2017-8-3 16:35:28

marting 发表于 2017-8-3 11:20

(defun XD::MATH:Range (s e i)
  (setq str "0" n (/ (- e s) i) j 0 jlst nil)
  (while (<= j n)
   (setq str (strcat "0" str))
   (setq jlst (cons j jlst))
   (setq j (+ j 1))
  )
  (setq vlst (mapcar '(lambda (x y) (+ x y))
                  (mapcar '(lambda (e) (+ s (- e 48))) (vl-string->list str))
                  (mapcar '(lambda (z) (* i z)) (reverse jlst))
            )
  )
)

炫翔 · 发表于 2017-8-4 09:01:35

类似 XD::Geom:NumDiv

炫翔 · 发表于 2017-8-4 09:02:23

(XD::Geom:NumDiv 2 12 4.0) --》 (2.0 6.0 10.0 12.0)

账号		自动登录	找回密码
密码			立即注册

[数学] （XD::MATH:Range）给起始数、结束数和步长求中间表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分