在n个坐标点时，一些坐标它们的y值是相同的，例如是y1，如何获得y1坐标下x坐标最大的

1842621563

在n个坐标点时，一些坐标它们的y值是相同的，例如是y1,另外一些坐标它们的y值是y2,这个时候我需要取出来的是在y1坐标下，x坐标最大的哪个点，y2坐标下，x坐标最大的那个点，比如下列坐标点   lst '(100.0 100.0) '(115.0 100.0)        '(115.0 115.0) '(115.022 115.0)
                  '(100.0 120.834) '(130.0 130.0) '(140.0 130.0) '(160.0 155.0)
                  '(190.0 180.0) '(180.0 180.0)        '(190.0 190.0) '(200.0 190.0)
                  '(179.559 200.0) '(200.0 200.0))
要获得的坐标就是：（115.0 100.0 ） （100.0 120.834）（(140.0 130.0）（160.0 155.0）（190.0 180.0）（(200.0 190.0）（200.0 200.0）
论坛的大神们，求帮助啊！

newer

开源函数库几百个函数了，都是总结的20年开发经验遇到的各种问题，写成的函数，可以说你平时遇到的问题90%以上，那里都有解决方案。

去看下 开源函数库的

（XD::Pnts:Extremum）求点表的极值点

(XD::List:GroupByIndex)按索引对表进行分组

29 个回复 - 4160 次查看

2013-10-14 15:13 - eachy - 开源函数库

API应用 有关分类统计(XD::List:GroupByIndex)的通用写法

10 个回复 - 5435 次查看

;;XD::List:GroupByIndex 应用汇总 ;;该函数是以索引对表进行分类汇总的通用函数，一般写法如下 ;;这里最主要的是构造这个索引，可以是 LIST STR INT REAL 四种格式 1 分类统计图块数量 2 按文字内容统计, ...

2013-11-28 13:25 - st788796 - XDRX_API应用

• （XD::LIST:Group-n）表按指定长度组成子表
  0 个回复 - 100 次查看
  下面代码求两个实体的交点
  2017-5-17 14:23 - marting - 开源函数库
• (XD::List:Group)表根据首次出现项按精度分组
  3 个回复 - 870 次查看
  _$ (xd::list:group '(1 2 3 4 1 2 4 5) 1) ((5) (4 4) (3) (2 2) (1 1)) _$ (xd::list:group '(1 2 3 4 1 2 4 5) 11) ((1 2 3 4 1 2 4 5)) _$ (xd::list:group'(1 2 3 4 1 2 4 5) 1.1)  ((5) (3 4 4) (1 2 1 ...
  2013-11-9 09:10 - st788796 - 开源函数库
• （XD::List:GroupByNum）表根据数分组（子表）
  0 个回复 - 185 次查看
  (defun XD::List:GroupByNum (lst num / ls ret) (if (= (rem (length lst) num) 0) (progn (setq ls nil) (repeat (/ (length lst) num) (repeat num (setq ls (cons (car lst) ls) ...
  2016-10-20 12:37 - Lispboy - 开源函数库
• 
  
• 
  
  

newer

1. (defun abc ()
   
2.   (setq        lst (list '(100.0 100.0)  '(115.0 100.0)  '(115.0 115.0)
   
3.                   '(115.022 115.0)                  '(100.0 120.834)
   
4.                   '(130.0 130.0)  '(140.0 130.0)  '(160.0 155.0)
   
5.                   '(190.0 180.0)  '(180.0 180.0)  '(190.0 190.0)
   
6.                   '(200.0 190.0)  '(179.559 200.0)
   
7.                   '(200.0 200.0)
   
8.                  )
   
9.   )
   
10.   (setq lst1 (mapcar '(lambda(x)(cons (cadr x) x)) lst)) ;;把每个坐标的Y值提到第一个元素和坐标组成关联表
    
11.   (setq lst2 (xd::list:groupbyindex lst1 0.01)) ;;Y坐标相同的在一个子表
    
12.   (setq lst3 (mapcar 'cdr lst2)) ;;关联表去掉第一项Y，得到Y值相同的坐标都在一个表
    
13.   (setq lst4 (mapcar '(lambda(x)(vl-sort x '(lambda(m n)(> (car m)(car n))))) lst3)) ;;对每组Y值相同的表，按X值排序，LST4就是Y值相同，X大的在前面的排序表
    
14. )
    

(defun abc ()<br />   (setq        lst (list '(100.0 100.0)  '(115.0 100.0)  '(115.0 115.0)<br />                   '(115.022 115.0)                  '(100.0 120.834)<br />                   '(130.0 130.0)  '(140.0 130.0)  '(160.0 155.0)<br />                   '(190.0 180.0)  '(180.0 180.0)  '(190.0 190.0)<br />                   '(200.0 190.0)  '(179.559 200.0)<br />                   '(200.0 200.0)<br />                  )<br />   )<br />   (setq lst1 (mapcar '(lambda(x)(cons (cadr x) x)) lst)) ;;把每个坐标的Y值提到第一个元素和坐标组成关联表<br />   (setq lst2 (xd::list:groupbyindex lst1 0.01)) ;;Y坐标相同的在一个子表<br />   (setq lst3 (mapcar 'cdr lst2)) ;;关联表去掉第一项Y，得到Y值相同的坐标都在一个表<br />   (setq lst4 (mapcar '(lambda(x)(vl-sort x '(lambda(m n)(> (car m)(car n))))) lst3)) ;;对每组Y值相同的表，按X值排序，LST4就是Y值相同，X大的在前面的排序表<br /> )<br />

执行结果：

(abc)
(
((115.0 100.0) (100.0 100.0))
((115.022 115.0) (115.0 115.0))
((100.0 120.834))
((140.0 130.0) (130.0 130.0))
((160.0 155.0))
((190.0 180.0) (180.0 180.0))
((200.0 190.0) (190.0 190.0))
((200.0 200.0) (179.559 200.0))
)

dnbcgrass

     (setq lst (list '(100.0 100.0) '(115.0 100.0)
                     '(115.0 115.0) '(115.022 115.0)
                     '(100.0 120.834) '(130.0 130.0)
                     '(140.0 130.0) '(160.0 155.0)
                     '(190.0 180.0) '(180.0 180.0)
                     '(190.0 190.0) '(200.0 190.0)
                     '(179.559 200.0) '(200.0 200.0)
               )
      )

      (setq jgb (vl-sort lst '(lambda(a b)
                                  (if (equal (cadr a) (cadr b) 1e-3)
                                      (> (car  a) (car  b))
                                      (< (cadr a) (cadr b))
                                   )
                              )
                )
     )
     (setq fhz (list (car jgb))
           jgb (cdr jgb)
           y   (cadr (car fhz))
     )
     (foreach pt jgb
          (if (/= y (cadr pt))
              (setq fhz (cons pt fhz)
                    y   (cadr pt)
              )
          )
     )
     (setq fhz (reverse fhz))

sicky111

学习一下。

1842621563

newer 发表于 2018-4-12 11:05
开源函数库几百个函数了，都是总结的20年开发经验遇到的各种问题，写成的函数，可以说你平时遇到的问题90% ...

谢谢大神的指导