关于表的运算请教 表中的第二个数据再加减-个数值

f4800

请教各位大师
怎样把表1排列横排变成竖排
((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1))  

转换为表2
(-14 0.6)
(-11 0.5)
(-10 0.4)
(-6 0.3)
(-4 0.2)
(-2 0.1)

然后，表2 中的第二个数据再加减-个数值？
比如表2 中的第二个数据同时相加 2
最终的是
(-14 2.6)
(-11 2.5)
(-10 2.4)
(-6 2.3)
(-4 2.2)
(-2 2.1)

多谢指导

lijiao

_$ (setq lst1 '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1))
_$ (foreach x lst1 (princ x) (princ "\n") (princ))
(-14 0.6)
(-11 0.5)
(-10 0.4)
(-6 0.3)
(-4 0.2)
(-2 0.1)
_$ (foreach x lst1 (princ (list (car x) (+ 2 (cadr x)))) (princ "\n") (princ))
(-14 2.6)
(-11 2.5)
(-10 2.4)
(-6 2.3)
(-4 2.2)
(-2 2.1)
_$
你的所谓表2,其实不能称其为表,只能叫显示方式

vormittag

第一个问题不存在，横着竖着还是斜着只是显示方式，数据结构没有变；
第二个问题：

2. (setq lst '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
   
3. (mapcar '(lambda(x) (mapcar '+ '(0 2.) x) ) lst)

(setq lst '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))<br /> (mapcar '(lambda(x) (mapcar '+ '(0 2.) x) ) lst)

f4800

vormittag 发表于 2022-2-14 09:50
第一个问题不存在，横着竖着还是斜着只是显示方式，数据结构没有变；
第二个问题：

多谢大师指导  还不熟悉  所以 才提出来横排 竖排问题

f4800

lijiao 发表于 2022-2-14 08:54
_$ (setq lst1 '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
((-14 0.6) (-11 0.5) (-1 ...

多谢大师指导  我测试下   多谢

f4800

lijiao 发表于 2022-2-14 08:54
_$ (setq lst1 '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
((-14 0.6) (-11 0.5) (-1 ...

(defun TT-STR (lst1  NUM / )       
        ;(foreach x lst1 (princ x) (princ "\n") (princ))
        (foreach x lst1 (princ (list (car x) (+ NUM (cadr x)))) (princ "\n") (princ))       
)

(setq lst1 '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
(TT-STR lst1 36 )


=====<飞诗Lisp编辑器 2022/2/14 12:40:10>=====
(-14 36.6)
(-11 36.5)
(-10 36.4)
(-6 36.3)
(-4 36.2)
(-2 36.1)


大师  这样好像也可以..

f4800

lijiao 发表于 2022-2-14 08:54
_$ (setq lst1 '((-14 0.6) (-11 0.5) (-10 0.4) (-6 0.3) (-4 0.2) (-2 0.1)))
((-14 0.6) (-11 0.5) (-1 ...

大师 还有一个情况
假如我的记事本内容如下：0.000
4 2.0 0.1 3.0 0.1 7.0 0.1 8.0 0.1
6 2.0 0.1 2.0 0.1 2.0 0.1 4.0 0.1 1.0 0.1 3.0 0.1

用 READ-LINE 读取后得到的字符串
"0.000"
"4 2.0 0.1 3.0 0.1 7.0 0.1 8.0 0.1"
"6 2.0 0.1 2.0 0.1 2.0 0.1 4.0 0.1 1.0 0.1 3.0 0.1"

总是会添加 "  这个符号，再用 LIST 函数转换为点表后会变成这样
("4 2.0 0.1 3.0 0.1 7.0 0.1 8.0 0.1")   但是为多了个 " 符号， 点表无法参与数学计算
如何解决这个问题？多谢

yxp

f4800 发表于 2022-2-15 22:17
大师 还有一个情况
假如我的记事本内容如下：0.000
4 2.0 0.1 3.0 0.1 7.0 0.1 8.0 0.1

(read (strcat "(" "6 2.0 0.1 2.0 0.1 2.0 0.1 4.0 0.1 1.0 0.1 3.0 0.1" ")"))

f4800

yxp 发表于 2022-2-15 22:26
(read (strcat "(" "6 2.0 0.1 2.0 0.1 2.0 0.1 4.0 0.1 1.0 0.1 3.0 0.1" ")"))

多谢大师。。。OK了