求数据排序程序，数学上的排序

革天明

目的：1 2 3 4 5 6   要排序生成（（1 2 3）（2 3 4）（3 4 5）（4 5 6）（5 6 1））
下面程序生成的是((((((1 2 3) (2 3 4)) (3 4 5)) (4 5 6)) (5 6 1)) (6 1 2))
求修改！谢谢！
(defun c:tst2()
  (setq i 0)
  (setq ptlist(list 1 2 3 4 5 6))
  (setq lst3p(list (nth i ptlist) (nth (+ i 1) ptlist) (nth (+ i 2) ptlist)))
  (setq i 1)
  (repeat (- (length ptlist) 3)
    (setq lst(list (nth i ptlist) (nth (+ i 1) ptlist) (nth (+ i 2) ptlist)))
    (setq lst3p(list lst3p lst))
    (setq i (1+ i))   
  )
  (setq lst3p-2(list (nth (- (length ptlist) 2) ptlist) (nth (- (length ptlist) 1) ptlist) (nth 0 ptlist)))
  (setq lst3p-1(list (nth (- (length ptlist) 1) ptlist) (nth 0 ptlist) (nth 1 ptlist)))
  (setq lst3p(list lst3p lst3p-2))
  (setq lst3p(list lst3p lst3p-1))
  (princ lst3p)
)

革天明

（（1 2 3）（2 3 4）（3 4 5）（4 5 6）（5 6 1）（6 1 2 ））
刚才忘了6 1 2 了

Gu_xl

1. (defun tst (l n / k nn)
   
2.   (setq k -1 nn (length l))
   
3.   (mapcar
   
4.     (function
   
5.       (lambda (a / ll m)
   
6.        (setq k (1+ k) m k)
   
7.        (repeat n
   
8.        (setq ll (append ll (list (nth m l))))
   
9.        (setq m (rem (1+ m) nn))
   
10.        ll
    
11.        )
    
12.        )
    
13.       )
    
14.     l
    
15.     )
    
16.   )
    
17. ;;测试
    
18. (tst '(1 2 3 4 5 6) 3)
    
19. 返回: '((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))

(defun tst (l n / k nn)<br />   (setq k -1 nn (length l))<br />   (mapcar<br />     (function<br />       (lambda (a / ll m)<br />        (setq k (1+ k) m k)<br />        (repeat n<br />        (setq ll (append ll (list (nth m l))))<br />        (setq m (rem (1+ m) nn))<br />        ll<br />        )<br />        )<br />       )<br />     l<br />     )<br />   )<br /> ;;测试<br /> (tst '(1 2 3 4 5 6) 3) <br /> 返回: '((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))

革天明

版主就是强，此函数比我写的高级多了！

xshrimp

2. 
   
3. (defun tst(l / l2 l3)
   
4.   (setq l2 (append(cdr l)(list(car l)))l3(append(cdr l2)(list(car l2))))
   
5.   (mapcar '(lambda(x y z) (list x y z)) l l2 l3)
   
6. )
   

<br /> (defun tst(l / l2 l3)<br />   (setq l2 (append(cdr l)(list(car l)))l3(append(cdr l2)(list(car l2))))<br />   (mapcar '(lambda(x y z) (list x y z)) l l2 l3)<br /> )<br />

命令: (tst (list 1 2 3 4 5 6))
((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))

革天明

革天明 发表于 2012-4-24 18:45
版主就是强，此函数比我写的高级多了！

无法对坐标进行排序
((2098.7 647.367) (2098.7 1073.41) (1824.61 1073.41) (1676.14 807.132) (1558.12 647.367))
说是错误: 参数类型错误: listp

革天明

xshrimp 发表于 2012-4-24 18:48
命令: (tst (list 1 2 3 4 5 6))
((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 1) (6 1 2))

不能对坐标点进行排序，求修改

xshrimp

提供数据样本啊.

革天明

xshrimp 发表于 2012-4-25 12:21
提供数据样本啊.

((2098.7 647.367) (2098.7 1073.41) (1824.61 1073.41) (1676.14 807.132) (1558.12 647.367))

革天明

革天明 发表于 2012-4-25 09:45
无法对坐标进行排序
((2098.7 647.367) (2098.7 1073.41) (1824.61 1073.41) (1676.14 807.132) (1558 ...

原理上是一样的啊，把每个点组成的表，传递给函数，函数照纯数字组成的排序
(setq ptlist(list pt1 pt2 pt3 pt4 pt5 pt6))
我想得到的就是（（pt1 pt2 pt3) (pt2 pt3 pt4) (pt3 pt4 pt5) (pt4 pt5 pt6) (pt5 pt6 pt1)(pt6 pt1 pt2))