和值固定的不同组合

aimisiyou

aimisiyou 发表于 2019-11-11 07:50
_$ (defun H_L (lst L)
  (setq i -1)
  (setq lst1 (mapcar '(lambda (x y)   

_$ (setq w_tol 179 wlst '(103 65 41 39 35 27 21 17 3 97 89) clst  wlst  M_pop 100 M_re 400 plst nil)
(defun rnd ()
  (* (rem (getvar "cputicks") 1e4) 1e-4)
)
(defun ff (n)
    (setq lst '((0 5 1)(5 10 0)) vlst nil)
    (repeat n
        (setq num (fix (rem (getvar "CPUTICKS") 11)))
        (setq vlst (cons (car (vl-remove nil (mapcar '(lambda (x) (if (<= (car x) num (cadr x)) (last x) nil)) lst))) vlst))
    )
)
(defun dfun (e1 e2)
(apply '+ (mapcar '(lambda (x y) (boole 6 x y)) e1 e2))
)
(defun move (e1 e2)
(setq dis (dfun e1 e2) k (/ (fit e1) 1.0 (fit e2)) p2 0.992)
(mapcar '(lambda (x y) (if (< (setq p (rnd)) (+ (* k 0.4) (/ 1.0 (+ 2.0 dis)))) y (if (< (+ (* k 0.4) (/ 1.0 (+ 2.0 dis))) p p2) x  (boole 7 y (fix (+ 0.5 (rnd))))))) e1 e2)
)
(defun fit (e)
(if (<= (apply '+ (mapcar '* wlst e)) w_tol)
     (setq fitvalue  (apply '+ (mapcar '* clst e)))
     (setq fitvalue  0)
)
)
(repeat M_pop
  (setq plst (cons (ff (length wlst)) plst))
)
(setq pest (cdr (car (vl-sort (mapcar '(lambda (x) (cons (fit x) x)) plst)  '(lambda (e1 e2) (> (car e1) (car e2)))))))
(repeat M_re
(progn
  (setq plst (mapcar '(lambda (x) (move x pest)) plst))
  (setq pest_new (cdr (car (vl-sort (mapcar '(lambda (x) (cons (fit x) x)) plst)  '(lambda (e1 e2) (> (car e1) (car e2)))))))
  (if (> (fit pest_new) (fit pest)) (setq pest pest_new) (setq pest pest))
  )
)
(list (fit pest) (vl-remove 0 (mapcar '*  wlst pest)))
nil
RND
FF
DFUN
MOVE
FIT
((0 1 0 1 1 1 1 1 1 1 0) (1 1 1 0 1 0 1 1 0 0 1) (1 1 1 0 1 0 1 0 0 0 1) (1 0 1 1 0 0 1 1 1 1 1) (1 1 1 0 1 0 1 1 1 1 1) (1 0 1 0 0 0 1 0 0 1 0) (1 0 1 0 0 1 1 1 0 0 1) (1 0 1 0 0 0 0 1 0 0 1) (1 1 1 0 1 1 1 0 1 0 1) (1 1 0 0 0 1 0 1 1 0 1) (1 0 0 0 1 0 0 1 0 1 1) (1 1 0 1 1 0 0 1 1 0 0) (1 1 0 0 0 1 0 0 1 1 1) (1 0 1 1 1 1 1 1 1 0 0) (1 0 0 0 0 0 0 1 1 1 0) (1 1 0 0 0 1 1 1 1 1 0) (1 1 0 1 0 0 0 0 0 1 0) (0 0 0 0 0 0 0 0 1 0 0) (0 1 1 0 1 1 1 0 1 1 1) (1 0 1 1 0 1 1 0 0 1 1) (1 1 1 0 0 1 1 0 1 0 0) (1 1 1 0 1 0 0 1 0 1 1) (0 0 0 1 0 1 1 0 0 1 1) (0 0 0 1 0 1 1 1 0 1 0) (0 0 0 0 0 0 0 1 0 1 1) (1 0 0 1 0 0 1 0 1 0 0) (1 1 0 1 1 1 1 1 0 0 0) (0 1 0 1 0 0 1 1 0 0 1) (1 1 1 1 1 0 0 0 1 0 0) (1 1 1 1 0 1 1 1 1 0 1) (1 1 1 1 0 0 0 1 1 1 1) (0 0 0 0 1 1 1 0 1 0 1) (0 1 0 1 1 1 1 1 1 1 0) (0 1 1 0 1 0 1 0 1 1 1) (1 1 0 1 0 1 1 1 0 1 1) (1 1 1 0 0 1 0 0 0 0 0) (0 0 1 1 1 0 1 1 0 1 1) (1 1 1 0 0 1 0 1 0 0 1) (0 1 0 1 0 0 0 1 0 0 0) (1 0 0 1 0 1 0 0 1 1 0) (1 1 1 1 1 1 1 1 1 0 1) (0 0 1 1 0 0 0 1 1 0 0) (0 0 0 1 0 1 1 0 1 0 1) (0 0 1 1 0 1 1 1 0 0 1) (0 1 1 1 1 0 1 1 0 1 0) (0 0 0 1 0 0 0 0 1 0 0) (0 0 0 0 1 0 1 1 1 0 0) (1 1 1 1 1 1 1 0 1 0 0) (0 0 0 0 1 1 0 0 0 1 0) (0 0 0 0 1 1 0 0 0 1 0) (0 1 1 1 1 0 0 1 1 1 0) (1 1 0 1 0 1 0 1 1 1 1) (1 0 0 0 0 0 0 1 1 1 1) (1 1 1 1 1 1 1 0 0 1 0) (0 0 0 1 1 0 0 0 1 0 1) (1 0 0 1 1 1 0 1 0 0 1) (1 0 1 0 0 0 0 0 1 1 1) (0 0 0 1 0 1 1 1 1 1 0) (1 0 0 1 1 1 1 0 1 0 1) (1 1 0 1 1 1 1 0 1 0 1) (1 1 1 1 1 0 1 0 0 1 1) (0 1 0 1 1 0 1 1 1 1 0) (0 1 1 1 0 1 0 1 1 1 0) (1 1 0 0 1 0 1 0 1 1 1) (1 0 1 1 1 1 1 0 1 0 1) (1 1 1 1 0 1 0 1 1 0 1) (1 1 0 0 1 1 1 0 0 1 0) (1 0 0 0 0 0 1 0 1 0 1) (0 1 1 0 0 0 1 1 1 1 0) (0 0 0 1 1 1 1 1 0 1 1) (1 1 1 0 0 1 1 0 0 0 1) (0 1 0 1 0 1 1 1 1 1 0) (0 1 0 1 1 1 1 1 0 1 1) (1 1 0 0 1 0 0 1 1 0 1) (0 1 1 1 0 1 0 1 1 0 0) (0 0 0 0 1 0 0 1 0 0 1) (0 0 0 1 0 1 1 1 1 0 1) (1 0 1 1 0 1 0 1 1 1 0) (1 0 0 0 1 1 0 1 0 1 0) (0 1 0 0 1 1 0 0 1 0 1) (1 0 0 0 1 1 0 1 1 0 0) (1 1 1 1 1 0 1 1 0 1 1) (0 0 1 1 0 1 0 1 0 1 1) (0 0 0 0 1 1 0 0 0 1 0) (1 0 1 1 0 0 1 1 0 0 1) (0 1 0 1 0 1 1 1 1 1 1) (0 0 0 0 1 1 1 1 0 1 0) (0 1 0 0 1 1 1 0 0 0 1) (1 0 1 0 0 0 0 1 1 1 1) (1 1 1 0 0 0 1 1 0 1 1) (1 0 0 1 1 0 1 1 1 1 1) (0 0 1 0 1 0 1 1 1 1 0) (1 1 1 0 0 1 1 1 0 1 0) (1 1 0 1 1 1 0 1 1 1 0) (1 1 1 0 0 1 1 0 1 0 0) (1 1 0 1 1 1 0 1 0 0 0) (1 0 0 1 1 1 0 1 0 1 1) (1 1 1 1 1 1 1 0 0 1 0) (1 0 0 1 1 1 0 0 0 0 1) (1 0 1 1 1 0 1 1 0 1 1))
(0 0 0 1 0 1 1 0 1 0 1)
(0 0 0 1 0 1 1 0 1 0 1)
(179 (39 27 21 3 89))
_$