求一个或门逻辑关系函数

hn10183051

研究一个表的或门逻辑关系，求高手指点！

1. (("1.85" "1800" "4000" "100") ("1.85" "1700" "5500" "100")
   
2. ("1.85" "1600" "5000" "100") ("1.85" "1500" "4500" "100")
   
3. ("1.85" "1400" "4200" "100") ("1.85" "1300" "4200" "100")
   
4. ("1.85" "1200" "3500" "100") ("1.85" "1100" "2500" "100")
   
5. )
   
6. 
   
7. ;当2个比较结果不一致时写入结果最大值,反之写入相同结果
   
8. (("1.85" "1800" "4000" "100" "4") ("1.85" "1700" "5500" "100" "4")
   
9. ("1.85" "1600" "5000" "100" "3") ("1.85" "1500" "4500" "100" "2")
   
10. ("1.85" "1400" "4200" "100" "1") ("1.85" "1300" "4200" "100" "1")
    
11. ("1.85" "1200" "3500" "100" "0") ("1.85" "1100" "2500" "100" "0")
    
12. )

复制代码

2. (DEFUN C->TH (C D / TH);比较表第2个元素
   
3.   (COND
   
4.     ((AND (>= 1300 C ) (>= 4000 D ))(setq TH 0))
   
5.     ((AND (>= 1400 C ) (>= 4200 D ))(setq TH 1))
   
6.     ((AND (>= 1500 C ) (>= 4500 D ))(setq TH 2))
   
7.     ((AND (>= 1600 C ) (>= 5000 D ))(setq TH 3))
   
8.     (T (setq TH 4))
   
9.    
   
10.   )
    
11.   TH
    
12. )
    
13. 
    
14. (C->TH 900 4000)   0
    
15. (C->TH 900 5500)   4
    
16. (C->TH 1300 4400)  2
    
17. (C->TH 1400 4400)  2
    
18. (C->TH 1500 4400)  2
    
19. (C->TH 1600 300)   3
    
20. (C->TH 1700 200)   4

(DEFUN C->TH (C D / TH);比较表第2个元素<br />   (COND<br />     ((AND (>= 1300 C ) (>= 4000 D ))(setq TH 0))<br />     ((AND (>= 1400 C ) (>= 4200 D ))(setq TH 1))<br />     ((AND (>= 1500 C ) (>= 4500 D ))(setq TH 2))<br />     ((AND (>= 1600 C ) (>= 5000 D ))(setq TH 3))<br />     (T (setq TH 4))<br />     <br />   )<br />   TH<br /> )<br /> <br /> (C->TH 900 4000)   0<br /> (C->TH 900 5500)   4<br /> (C->TH 1300 4400)  2<br /> (C->TH 1400 4400)  2<br /> (C->TH 1500 4400)  2<br /> (C->TH 1600 300)   3<br /> (C->TH 1700 200)   4

llsheng_73

1. (defun tt(lst)
   
2.   (mapcar(function(lambda(x / a b)
   
3.         (setq a(atoi(cadr x))
   
4.         a(COND((>= 1300 a)0)((>= 1400 a)1)((>= 1500 a)2)((>= 1600 a)3)(t 4))
   
5.         b(atoi(caddr x))
   
6.         b(COND((>= 4000 b)0)((>= 4200 b)1)((>= 4500 b)2)((>= 5000 b)3)(t 4)))
   
7.         (append x(list(itoa(max a b))))))lst))

(defun tt(lst)<br />   (mapcar(function(lambda(x / a b)<br />         (setq a(atoi(cadr x))<br />         a(COND((>= 1300 a)0)((>= 1400 a)1)((>= 1500 a)2)((>= 1600 a)3)(t 4))<br />         b(atoi(caddr x))<br />         b(COND((>= 4000 b)0)((>= 4200 b)1)((>= 4500 b)2)((>= 5000 b)3)(t 4)))<br />         (append x(list(itoa(max a b))))))lst))

(tt'(("1.85" "1800" "4000" "100") ("1.85" "1700" "5500" "100") ("1.85" "1600" "5000" "100") ("1.85" "1500" "4500" "100") ("1.85" "1400" "4200" "100")("1.85" "1300" "4200" "100") ("1.85" "1200" "3500" "100") ("1.85" "1100" "2500" "100") ))
=>
(("1.85" "1800" "4000" "100" "4") ("1.85" "1700" "5500" "100" "4") ("1.85" "1600" "5000" "100" "3") ("1.85" "1500" "4500" "100" "2") ("1.85" "1400" "4200" "100" "1") ("1.85" "1300" "4200" "100" "1") ("1.85" "1200" "3500" "100" "0") ("1.85" "1100" "2500" "100" "0"))

hn10183051

(defun tt1 (lst)
  (mapcar (function (lambda (x / a b)
                      (setq C (atoi (cadr x)))
                                        (setq D (atoi (caddr x)))
                             (COND
                ((AND (>= 1300 C ) (>= 4000 D ))(setq TH 0))
                ((AND (>= 1400 C ) (>= 4200 D ))(setq TH 1))
                ((AND (>= 1500 C ) (>= 4500 D ))(setq TH 2))
                ((AND (>= 1600 C ) (>= 5000 D ))(setq TH 3))
                (T (setq TH 4))
               
        )
                                                 
                      (append x (list (itoa TH)))
                    )
          )
          lst
  )
)

hn10183051

llsheng_73 发表于 2025-1-11 12:46
(tt'(("1.85" "1800" "4000" "100") ("1.85" "1700" "5500" "100") ("1.85" "1600" "5000" "100") ("1.85 ...

谢谢，llsheng_73大神

llsheng_73

hn10183051 发表于 2025-1-11 13:23
(defun tt1 (lst)
  (mapcar (function (lambda (x / a b)
                      (setq C (atoi (cadr x)))

看错了，好象不会出现结果不正确的情况，因为几个梯度是逐级增大的。。。比如1300以下它可以返回01234
1600只能返回3，1600以上只能返回4，没注意到区间的这种划分办法可以直接隐含或逻辑...

mahuan1279

坐标系中划分一下，不能有重叠或遗漏区域，没那么复杂。

xyp1964

1. (defun c->th (c d)
   
2.   (cond ((and (>= 1300 c) (>= 4000 d)) 0)
   
3.         ((and (>= 1400 c) (>= 4200 d)) 1)
   
4.         ((and (>= 1500 c) (>= 4500 d)) 2)
   
5.         ((and (>= 1600 c) (>= 5000 d)) 3)
   
6.         (t 4)
   
7.   )
   
8. )
   
9. ;(tt lst)
   
10. (defun tt (lst)(mapcar '(lambda (x)  (append x (list (itoa (c->th (atoi (cadr x)) (atoi (caddr x))))))) lst))

(defun c->th (c d)<br />   (cond ((and (>= 1300 c) (>= 4000 d)) 0)<br />         ((and (>= 1400 c) (>= 4200 d)) 1)<br />         ((and (>= 1500 c) (>= 4500 d)) 2)<br />         ((and (>= 1600 c) (>= 5000 d)) 3)<br />         (t 4)<br />   )<br /> )<br /> ;(tt lst)<br /> (defun tt (lst)(mapcar '(lambda (x)  (append x (list (itoa (c->th (atoi (cadr x)) (atoi (caddr x))))))) lst))