求大神指导方法。

sinawell

大神如何修改一下能让数据完整？现在运行后丢失后两位数据。谢谢！！！！
((944.03 393.161 1 "D4" "90") (794.315 393.161 1 "D20" "90") (888.1 399.38 0 "D10" "270") (278.256 399.409 0 "D3" "270"))
运行后：
((944.03 433.161 1) (794.315 433.161 "90") (888.1 473.161 "270") (278.256 513.161 "270"))

fools

2. 
   
3. (SETQ test '((421.237 446.104 0 "D9" "270")
   
4.              (900.072 426.36 1 "D8" "90")
   
5.              (816.134 454.528 0 "D16" "231")
   
6.              (709.435 446.344 0 "D24" "270")
   
7.              (916.396 459.707 0 "D6" "231")
   
8.             )
   
9. )
   
10. (DEFUN yadd (lst / BASE I ITEM LST OUTLST Y)
    
11.   (SETQ lst (VL-SORT lst '(LAMBDA (y1 y2) (< (CADR y1) (CADR y2))))) ;_Y值排序
    
12.   (SETQ i 0) ;_计数器
    
13.   (SETQ base (CADAR lst)) ;_第一点的Y值
    
14.   (SETQ y (CADR lst)) ;_储存上一个点的Y值用于比较
    
15.   (SETQ outlst (LIST (SUBST (+ base 40) (CADAR lst) (CAR lst))))
    
16.   (SETQ lst (CDR lst))
    
17.   (WHILE lst
    
18.     (SETQ item (CAR lst))
    
19.     (SETQ lst (CDR lst))
    
20.     (IF  (NOT (EQUAL (CADR item) y 1e-6)) ;_误差值
    
21.       (SETQ y (CADR item)
    
22.             i (1+ i)
    
23.       )
    
24.     )
    
25.     (SETQ outlst (CONS (SUBST (+ base (* i 40)) (CADR item) item) outlst))
    
26.   )
    
27.   (REVERSE outlst)
    
28. )
    
29. 
    

<br /> (SETQ test '((421.237 446.104 0 "D9" "270")<br />              (900.072 426.36 1 "D8" "90")<br />              (816.134 454.528 0 "D16" "231")<br />              (709.435 446.344 0 "D24" "270")<br />              (916.396 459.707 0 "D6" "231")<br />             )<br /> )<br /> (DEFUN yadd (lst / BASE I ITEM LST OUTLST Y)<br />   (SETQ lst (VL-SORT lst '(LAMBDA (y1 y2) (< (CADR y1) (CADR y2))))) ;_Y值排序<br />   (SETQ i 0) ;_计数器<br />   (SETQ base (CADAR lst)) ;_第一点的Y值<br />   (SETQ y (CADR lst)) ;_储存上一个点的Y值用于比较<br />   (SETQ outlst (LIST (SUBST (+ base 40) (CADAR lst) (CAR lst))))<br />   (SETQ lst (CDR lst))<br />   (WHILE lst<br />     (SETQ item (CAR lst))<br />     (SETQ lst (CDR lst))<br />     (IF  (NOT (EQUAL (CADR item) y 1e-6)) ;_误差值<br />       (SETQ y (CADR item)<br />             i (1+ i)<br />       )<br />     )<br />     (SETQ outlst (CONS (SUBST (+ base (* i 40)) (CADR item) item) outlst))<br />   )<br />   (REVERSE outlst)<br /> )<br /> <br />

你既然是求方法，只要看懂了上一个程序，微调一下就行
(yadd test) ---->((900.072 426.36 1 "D8" "90") (421.237 446.104 0 "D9" "270") (709.435 446.344 0 "D24" "270") (816.134 454.528 0 "D16" "231") (916.396 459.707 0 "D6" "231"))

livewin

受教了，有时间好好看看

sinawell

请问，如果只有两个元素，函数结果元素就会一样怎么办？
命令: (setq a '((278 395 90) (278 412 90)))
命令: (yadd a)
((278 435 90) (278 435 90))

Lisphk

sinawell 发表于 2017-8-14 09:29

找找上面的代码，排序时候< 换成 equal 判断的浮点数的 <

sinawell

(IF        (NOT (EQUAL (CADR item) y 1e-6)) ;_误差值  用的就是这个哦

newer

sinawell 发表于 2017-8-14 09:44

好好去看看 11 楼 MARTING的帖子，理解好分组，和每个分组里面你想怎么处理。

sinawell

MARTING大神的确可行，但结果是表分组出现的。小弟不知如何变回不分组的表。
执行前：
命令: !a
((1 2 3) (2 3 4) (3 5 7) (2 2 4) (3 3 4) (5 5 6) (3 2 5) (8 5 3) (4 3 6))


执行后：
命令: tt
(((1 42.0 3) (2 42.0 4) (3 42.0 5)) ((2 83.0 4) (3 83.0 4) (4 83.0 6)) ((3
125.0 7) (5 125.0 6) (8 125.0 3)))

fools

将分组合并，可以用(apply 'append lst)

sicky111

排序函数。