一维下料

aimisiyou

1、按如下组成初始lst
   l1/min(n1,L/l1)
   l2/min(n2,L/l2)
   ……
   li/min(ni,L/li)

2、随机排列lst，然后(H_L  lst   L)取一组；3、更新nlst；若nlst都为0，转到5；
4、转到1；
5、结束程序

_$ (H_L '(5.12 5.12 4.73 4.73 3.92 3.92 3.92 3.62 3.62 3.62 3.52 3.52 3.52 3.32 3.32 3.32 3.12 3.12 3.12 2.92 2.92 2.92 2.92 2.64 2.64 2.64 2.64 2.54 2.54 2.54 2.54 2.38 2.38 2.38 2.38 2.38 1.75 1.75 1.75 1.75 1.75 1.75 1.585 1.585 1.585 1.585 1.585 1.585 1.585) 12)
(11.92 (1.585 1.585 1.75 1.75 1.75 1.75 1.75))
_$

aimisiyou

_$ (defun rnd ()
  (*(rem (getvar "cputicks") 1e4) 1e-4)
)
(defun rnd_n (n)
  (fix (* n (rnd)))
)
(defun pick (lst i j)
   (setq count (length lst) nc 0 picklst nil)
   (while (<= nc j)
       (if (<= i nc)
           (setq picklst (cons (nth nc lst) picklst))
       )
      (setq nc (+ nc 1))
   )   
   (reverse picklst)
)
(defun xipai (n)
  (setq i 1 j 0 klst nil)
  (while (<= i n)
      (setq klst (cons i klst))
      (setq i (+ 1 i))
   )
   (while (<= j 20)
         (setq i_pot (rnd_n n))
         (setq j_pot (rnd_n n))
         (setq nmin (min i_pot j_pot))
         (setq nmax (max i_pot j_pot))
         (setq klst (append (pick klst  (+ 1 nmax) (- n 1)) (pick klst (+ 1 nmin) nmax) (pick klst 0 nmin)))
         (setq j (+ j 1))
   )
   klst
)
(defun H_L (lst L)
  (setq lst1 (mapcar '(lambda (x y)   
                         (progn
                            (list (if (> (+ x y) L) x (+ x y))
                                  y   
                                 (if  (> (+ x y) L)
                                                                          (list x)
                                                                          (list  x y)
                                  )
                            )
                         )        
                      )
                      (reverse (cdr (reverse lst)))
                      (cdr lst)
               )
   )
  (while (cdr lst1)
       (setq lst1 (mapcar '(lambda (x y)   
                              (if (> (+ (car x) (cadr y)) L)
                                                              (if (>= (car x)  (car y))
                                                                       (list
                                                                                (car x)
                                                                                (cadr y)
                                                                                (last x)
                                                                           )
                                                                                                                                                   y
                                                                  )
                                                                  (if (> (+ (car x) (cadr y)) (car y))
                                                                       (list
                                                                                (+ (car x) (cadr y))
                                                                                (cadr y)
                                                                                (cons (cadr y) (last x))
                                                                           )
                                                                           y
                                                                  )
                                                            )
                            )        
                           (reverse (cdr (reverse lst1)))
                           (cdr lst1)
                      )
            )
   )
  (cons (car (car lst1))(list (last (car lst1))))
)
(setq lst '(5.12 5.12 4.73 4.73 3.92 3.92 3.92 3.62 3.62 3.62 3.52 3.52 3.52 3.32 3.32 3.32 3.12 3.12 3.12 2.92 2.92 2.92 2.92 2.64 2.64 2.64 2.64 2.54 2.54 2.54 2.54 2.38 2.38 2.38 2.38 2.38 1.75 1.75 1.75 1.75 1.75 1.75 1.585 1.585 1.585 1.585 1.585 1.585 1.585))
(H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
RND
RND_N
PICK
XIPAI
H_L
(5.12 5.12 4.73 4.73 3.92 3.92 3.92 3.62 3.62 3.62 3.52 3.52 3.52 3.32 3.32 3.32 3.12 3.12 3.12 2.92 2.92 2.92 2.92 2.64 2.64 2.64 2.64 2.54 2.54 2.54 2.54 2.38 2.38 2.38 2.38 2.38 1.75 1.75 1.75 1.75 1.75 1.75 1.585 1.585 1.585 1.585 1.585 1.585 1.585)
(11.97 (4.73 3.62 3.62))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.99 (2.38 1.585 1.585 3.12 3.32))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.97 (3.92 3.92 1.75 2.38))
_$  (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.985 (2.64 2.64 1.585 5.12))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.99 (3.12 3.62 1.75 1.75 1.75))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.925 (1.585 3.32 1.75 3.52 1.75))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.94 (2.92 2.38 3.12 3.52))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.95 (1.75 2.38 2.64 2.54 2.64))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.95 (1.585 2.54 1.585 3.12 3.12))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.99 (1.75 5.12 5.12))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.96 (1.75 1.585 3.92 1.585 3.12))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.985 (1.75 4.73 1.585 3.92))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.97 (4.73 3.62 3.62))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(12.0 (2.54 3.62 2.92 2.92))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.965 (1.585 3.92 2.54 3.92))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.985 (4.73 3.92 1.585 1.75))
_$ (H_L (mapcar '(lambda (eb) (nth (- eb 1) lst)) (xipai (length lst))) 12)
(11.985 (2.64 2.64 1.585 5.12))
_$