[LISP程序]：返回表格诸列中点的坐标值（单向）

lsjjm

返回表格诸列中点的坐标值（单向）
[php]
(defun test (ll / ss)
  (setq ll (reverse ll))
  (repeat (length ll)
    (setq ss (cons (- (apply '+ ll)(/ (car ll) 2.0)) ss))
    (setq ll (cdr ll))
  )
  ss
)
[/php]
其中 ll-宽度表
例如，列数为4的表格其宽度分别为：0.394， 1.26，0.952， 0.394。各列的中点距参考点（插入点）水平方向距离为0.197，1.024，2.13，2.803。
数学式：
c1 = w1/2
c2 = w1+ w2/2
c3 = w1+ w2 + w3/2
c4 = w1+ w2 + w3 + w4/2
...
cn = w1+w2+...w(n-1) +wn/2

而用程序处理起来非常简便。

狂刀

迷糊了双眼，看懂了意思
狂刀的第一贴程序：
[php]
(defun goodnight  (ll / a aa)
  (setq aa 0)
  (mapcar '(lambda(x)(setq a (+ aa (/ x 2)) aa (+ aa x)) a) ll)
)
[/php]

自由的鱼

不错的程序！

lsjjm

最初由 狂刀 发布
[B]迷糊了双眼，看懂了意思 狂刀的第一贴程序：
[php](defun goodnight  (ll / a aa)
  (setq aa 0)
  (mapcar '(lambda(x)(setq a (+ aa (/ x 2)) aa (+ aa x)) a) ll)
)[/php] [/B]

程序中的(/ x 2)应为(/ x 2.0), 否则当x 为整数时会丢失数据。

狂刀

你想说的是“会丢失精度”吧？：）
严格的说，不是当x 为整数时会丢失数据，而是，当a为整数的时候会丢失精度.
a=(+ aa (/ x 2))
但是即便丢失精度，也不影响计算结果的正确性阿

lsjjm

最初由 狂刀 发布
[B]...但是即便丢失精度，也不影响计算结果的正确性阿 [/B]

哈, 真不愧为是"狂刀"！