关于 点表的计算 第二组点表分别减去前一组点表的数据

f4800

有这么2组点表，每组数据都是代表相对于中心的距离 高程

左侧点表 DB-L，数据为
((0.0 384.083) ((-6.42665 385.086) (-15.9061 385.586) (-15.9061 388.327) (-29.5773 388.327) (-33.9669 390.671)))

右侧点表 DB-R ，数据为
((0.0 384.083) ((8.62691 386.695) (15.1137 386.695) (15.1137 388.529) (23.7395 388.529) (23.7395 390.135) (29.6778 390.372) (45.531 392.614)))


0.0 384.083  表示中心处的高程
比如：
(-6.42665 385.586)  ，表示左侧， 距中心 6.42655m ，高程 385.586
(8.62691 386.695)  ，表示右侧， 距中心 8.62691m ，高程 386.695
现在如何用lisp实现，同一侧，用第2组点表中的数据 分别减去第1组点表中的数据，用第3组点表中的数据 减去第2组点表中的数据，用第4组点表中的数据 分别减去第3组点表中的数据。。。。以此类推
能函数实现也可以
多谢
（最终就是 相对于前一个点的距离、高差      也就是  抬杆法）

st788796

(setq lst '((-6.42665 385.586)
            (-15.9061 385.586)
            (-15.9061 388.327)
            (-29.5773 388.327)
            (-33.9669 390.671)
           )
)
(mapcar        '(lambda (a b)
           (mapcar '- b a)
         )
        lst
        (cdr lst)
)
((-9.47945 0.0) (0.0 2.741) (-13.6712 0.0) (-4.3896 2.344))
_$

f4800

st788796 发表于 2020-12-5 16:34
(setq lst '((-6.42665 385.586)
            (-15.9061 385.586)
            (-15.9061 388.327)

多谢大师。。。。我测试下  再次感谢

f4800

st788796 发表于 2020-12-5 16:34
(setq lst '((-6.42665 385.586)
            (-15.9061 385.586)
            (-15.9061 388.327)

• ;;DB-L1 就是点表，似乎这样也可以  不知道对否？
• 
  
  • (setq lst111    (mapcar    '(lambda (a b)
  •            (mapcar '- b a)
  •          )
  •         DB-L1
  •         (cdr DB-L1)
  •       )
  •       )            
  • (prompt  (LST-string lst111  ) )                  
  •                   
    

f4800

st788796 发表于 2020-12-5 16:34
(setq lst '((-6.42665 385.586)
            (-15.9061 385.586)
            (-15.9061 388.327)

左侧点表 DB-L，数据为
((0.0 384.083) ((-6.42665 385.086) (-15.9061 385.586) (-15.9061 388.327) (-29.5773 388.327) (-33.9669 390.671)))

右侧点表 DB-R ，数据为
((0.0 384.083) ((8.62691 386.695) (15.1137 386.695) (15.1137 388.529) (23.7395 388.529) (23.7395 390.135) (29.6778 390.372) (45.531 392.614)))

目标：
1.第1组点表的第1个数据- 第2个点表的第1个数，第2组点表的第2个数据- 第1个点表的第2个数.。。。。 类推
然后组成新的点表或者字符串

举例：左侧

(0-(-6.42665)) (385.086-384.083)          (-6.42665)-(-15.9061)   (385.586-385.086)  。。 类推

大师 这种如何实现？？多谢

st788796

(setq lst '((0.0 384.083)
            ((-6.42665 385.086)
              (-15.9061 385.586)
              (-15.9061 388.327)
              (-29.5773 388.327)
              (-33.9669 390.671)
            )
          )
)
先处理一下表
(setq lst (cons (car lst) (cadr lst)))
然后再用上面的语句

f4800

st788796 发表于 2020-12-7 11:23
(setq lst '((0.0 384.083)
            ((-6.42665 385.086)
              (-15.9061 385.586)

多谢大师 指点    多谢 我测试 研究下

qqqincccken

关于 点表的计算 第二组点表分别减去前一组点表的数据