如何生成范围在a到b之间的c个随机数，要求数列中连续重复的数字的个数不大于n

革天明

如何生成范围在a到b之间的c个随机数，要求数列中连续重复的数字的个数不大于n
举个例子，要生成1-100间的随机数40个，但某人数字连续重复出现的次数小于等于3。
……40 40 40 21 36 15 15 ……这里40重复3次，15重复2次，都是小于等于3

taoyi0727

用G版的改了下(defun f (a b n i / loop lst nn rani temp temp-lst t-get-lst-item-num)
  (defun Rani (a b / tmp)
  (setq b (1+ b))
    (if (not *Seed*)
      (setq *Seed* (- (setq tmp (getvar "DATE")) (fix tmp)))
    )
    (+ a (fix (*
        (- b a)
        (setq *Seed* (-
                (setq tmp (/ (* *Seed* 1000000000 663608941) 1000000000.0))
                (fix tmp)
               )
        )
       )
     )
    )
  )
;;说明:获取表指定项在表中的数量
;;参数:lst:表

;;参数:item:指定项
;;返回:数量 [int]
(defun T-get-lst-item-num (lst item)
  (apply '+ (mapcar '(lambda (x)
             (if (= item x) 1 0)
            )
        lst
       )
  )
)
(setq loop t)
(setq lst nil)
  (while loop
  (setq nn 0)
  (setq temp-lst nil)
  (repeat i
   (if (and
      (>= (length lst) i);长度大于重复次数
      (>= (length lst) (1+ nn));长度大于循环次数
     )
    (setq temp-lst (append temp-lst (list (nth nn lst))));获取表前面的重复次数个数
   )
   (setq nn (1+ nn))
  )
  (setq temp (Rani a b));获取随机数
  (if (< (T-get-lst-item-num temp-lst temp) i);小于重复个数
   (progn
    (setq lst (append (list temp) lst))
    (if (= (length lst) n);表长度等于指定长度
     (setq loop nil);退出循环
    )
   )
  )
)
lst
)

weiqi

不懂写，围观之。

阿然

2. 
   
3. (defun c:tt (/ a b c n i num rndlst rndnumlst)
   
4.   (vl-load-com)
   
5.   (defun rnd (rMin rMax);_ Get a random value,Author: aeo
   
6.     (vla-eval (vlax-get-acad-object)
   
7.               "Randomize"
   
8.     );_add randomize by Xran
   
9.     (vla-eval (vlax-get-acad-object)
   
10.               "ThisDrawing.setVariable "USERR5" ,CDbl(Rnd())"
    
11.     )
    
12.     (+ rMin (* (getvar "userr5") (- rMax rMin)))
    
13.   )
    
14.   (if (and (setq a (getint "\n随机数下限:"))
    
15.            (setq b (getint "\n随机数上限:"))
    
16.            (setq c (getint "\n随机数个数:"))
    
17.            (setq n (getint "\n随机数最多重复次数:"))
    
18.            (setq i 0)
    
19.       )
    
20.     (while (< i c)
    
21.       (setq d (fix (rnd a b)))
    
22.       (if (assoc d rndlst)
    
23.         (progn
    
24.           (setq num (cdr (assoc d rndlst)))
    
25.           (if (< num n)
    
26.             (setq rndlst (subst (cons d (1+ num)) (assoc d rndlst) rndlst)
    
27.                   i         (1+ i)
    
28.                   rndnumlst (append rndnumlst (list d))
    
29.             )
    
30.           )
    
31.         )
    
32.         (setq rndlst (append rndlst (list (cons d 1)))
    
33.               rndnumlst (append rndnumlst (list d))
    
34.               i             (1+ i)
    
35.         )
    
36.       )
    
37.     )
    
38.   )
    
39.   rndnumlst
    
40. )
    
41. 
    
42. 
    

<br /> (defun c:tt (/ a b c n i num rndlst rndnumlst)<br />   (vl-load-com)<br />   (defun rnd (rMin rMax);_ Get a random value,Author: aeo<br />     (vla-eval (vlax-get-acad-object)<br />               "Randomize"<br />     );_add randomize by Xran<br />     (vla-eval (vlax-get-acad-object)<br />               "ThisDrawing.setVariable "USERR5" ,CDbl(Rnd())"<br />     )<br />     (+ rMin (* (getvar "userr5") (- rMax rMin)))<br />   )<br />   (if (and (setq a (getint "\n随机数下限:"))<br />            (setq b (getint "\n随机数上限:"))<br />            (setq c (getint "\n随机数个数:"))<br />            (setq n (getint "\n随机数最多重复次数:"))<br />            (setq i 0)<br />       )<br />     (while (< i c)<br />       (setq d (fix (rnd a b)))<br />       (if (assoc d rndlst)<br />         (progn<br />           (setq num (cdr (assoc d rndlst)))<br />           (if (< num n)<br />             (setq rndlst (subst (cons d (1+ num)) (assoc d rndlst) rndlst)<br />                   i         (1+ i)<br />                   rndnumlst (append rndnumlst (list d))<br />             )<br />           )<br />         )<br />         (setq rndlst (append rndlst (list (cons d 1)))<br />               rndnumlst (append rndnumlst (list d))<br />               i             (1+ i)<br />         )<br />       )<br />     )<br />   )<br />   rndnumlst<br /> )<br /> <br /> <br />

xujinhua

好像不行
; 错误: Automation 错误。  
而且只能整数,

革天明

我今天上午已写出一点，目前只有重复次数这项无法搞定，我的不允许出现连续值，不能定义重复次数

Gu_xl

生成范围在a到b之间的n个随机整数,且重复数不大于i

1. (defun f (a b n i / l r Rani)
   
2.   (defun Rani (a b / tmp)
   
3.     (if        (not *Seed*)
   
4.       (setq *Seed* (- (setq tmp (getvar "DATE")) (fix tmp)))
   
5.     )
   
6.     (+ a
   
7.        (fix (* (- b a)
   
8.                (setq
   
9.                  *Seed*        (- (setq
   
10.                              tmp (/ (* *Seed* 1000000000 663608941)
    
11.                                     1000000000.0
    
12.                                  )
    
13.                            )
    
14.                            (fix tmp)
    
15.                         )
    
16.                )
    
17.             )
    
18.        )
    
19.     )
    
20.   )
    
21.   (cond
    
22.     ((or
    
23.        (and (> (rem n (1+ (- b a))) 0)
    
24.             (< i (1+ (/ n (1+ (- b a)))))
    
25.        )
    
26.        (and (= (rem n (1+ (- b a))) 0)
    
27.             (< i (/ n (1+ (- b a))))
    
28.        )
    
29.      )
    
30.      (prompt "\n没有满足要求的结果")
    
31.     )
    
32.     ((and (= (rem n (1+ (- b a))) 0)
    
33.           (= i (/ n (1+ (- b a))))
    
34.      )
    
35.      (repeat i
    
36.        (setq l (cons a l))
    
37.      )
    
38.      (while (< a b)
    
39.        (setq a (1+ a))
    
40.        (repeat i
    
41.          (setq l (cons a l))
    
42.        )
    
43.      )
    
44.      (reverse l)
    
45.     )
    
46.     (t
    
47.      (while (< (length l) n)
    
48.        (setq r (Rani a b))
    
49.        (if (< (- (length l) (length (vl-remove r l))) i)
    
50.          (setq l (cons r l))
    
51.        )
    
52.      )
    
53.      (reverse l)
    
54.     )
    
55.   )
    
56. )
    
57. ;;测试: (f 1 100 40 1)

(defun f (a b n i / l r Rani)<br />   (defun Rani (a b / tmp)<br />     (if        (not *Seed*)<br />       (setq *Seed* (- (setq tmp (getvar "DATE")) (fix tmp)))<br />     )<br />     (+ a<br />        (fix (* (- b a)<br />                (setq<br />                  *Seed*        (- (setq<br />                              tmp (/ (* *Seed* 1000000000 663608941)<br />                                     1000000000.0<br />                                  )<br />                            )<br />                            (fix tmp)<br />                         )<br />                )<br />             )<br />        )<br />     )<br />   )<br />   (cond<br />     ((or<br />        (and (> (rem n (1+ (- b a))) 0)<br />             (< i (1+ (/ n (1+ (- b a)))))<br />        )<br />        (and (= (rem n (1+ (- b a))) 0)<br />             (< i (/ n (1+ (- b a))))<br />        )<br />      )<br />      (prompt "\n没有满足要求的结果")<br />     )<br />     ((and (= (rem n (1+ (- b a))) 0)<br />           (= i (/ n (1+ (- b a))))<br />      )<br />      (repeat i<br />        (setq l (cons a l))<br />      )<br />      (while (< a b)<br />        (setq a (1+ a))<br />        (repeat i<br />          (setq l (cons a l))<br />        )<br />      )<br />      (reverse l)<br />     )<br />     (t<br />      (while (< (length l) n)<br />        (setq r (Rani a b))<br />        (if (< (- (length l) (length (vl-remove r l))) i)<br />          (setq l (cons r l))<br />        )<br />      )<br />      (reverse l)<br />     )<br />   )<br /> )<br /> ;;测试: (f 1 100 40 1)

阿然

xujinhua 发表于 2013-3-3 17:52
好像不行
; 错误: Automation 错误。  
而且只能整数,

我在2004下运行没有问题，只能整数是题目要求的，可以是任意小数

jdlfjk

看看
(RandList 1 100 98 2)
(17 36 37 61 63 16 52 4 78 62 6 40 74 63 58 81 77 90 94 94 22 77 53 43 1 22 27 86 42 74 90 53 47 76 51 54 63 13 87 53 23 57 74 60 24 51 37 56 79 11 54 30 24 1 56 27 84 65 12 84 18 58 76 61 29 62 88 47 43 34 69 35 79 73 43 53 83 57 7 55 60 9 80 34 77 81 64 89 74 5 24 94 52 67 55 92 66 7)
;by jdlfjk @mjtd.com
;Random number generation function - based on the linear congruential
;method as presented in Doug Cooper's book Condensed Pascal

2. (defun RandList        (MinNum MaxNum Num n / co re x y RetList)
   
3.   (defun randnum (/ modulus multiplier increment random)
   
4.     (if        (not seed)
   
5.       (setq seed (getvar "DATE"))
   
6.     )
   
7.     (setq modulus    65536
   
8.           multiplier 25173
   
9.           increment  13849
   
10.           seed             (rem (+ (* multiplier seed) increment) modulus)
    
11.           random     (/ seed modulus)
    
12.           random     (fix (+ MinNum (* (- MaxNum MinNum -1) random)))
    
13.     )
    
14.   )
    
15.   (setq        co 0
    
16.         re 1
    
17.   )
    
18.   (while (< co Num)
    
19.     (setq y  (car RetList)
    
20.           co (1+ co)
    
21.     )
    
22.     (if        (>= re n)
    
23.       (while (= (setq x (randnum)) y))
    
24.       (if (= (setq x (randnum)) y)
    
25.         (setq re (1+ re))
    
26.         (setq re 1)
    
27.       )
    
28.     )
    
29.     (setq RetList (cons x RetList))
    
30.   )
    
31.   (reverse RetList)
    
32. )

(defun RandList        (MinNum MaxNum Num n / co re x y RetList)<br />   (defun randnum (/ modulus multiplier increment random)<br />     (if        (not seed)<br />       (setq seed (getvar "DATE"))<br />     )<br />     (setq modulus    65536<br />           multiplier 25173<br />           increment  13849<br />           seed             (rem (+ (* multiplier seed) increment) modulus)<br />           random     (/ seed modulus)<br />           random     (fix (+ MinNum (* (- MaxNum MinNum -1) random)))<br />     )<br />   )<br />   (setq        co 0<br />         re 1<br />   )<br />   (while (< co Num)<br />     (setq y  (car RetList)<br />           co (1+ co)<br />     )<br />     (if        (>= re n)<br />       (while (= (setq x (randnum)) y))<br />       (if (= (setq x (randnum)) y)<br />         (setq re (1+ re))<br />         (setq re 1)<br />       )<br />     )<br />     (setq RetList (cons x RetList))<br />   )<br />   (reverse RetList)<br /> )

下面是测试平均数的语句，重复500遍地去获取200个1或2的随机数，允许元素无限重复，最后求得到整数1的个数的平均值

2. (setq total 0)
   
3. (repeat  500
   
4.   (setq  co 0)
   
5.   (foreach one (RANDLIST 1 2 200 200)
   
6.     (if  (= one 1)
   
7.       (setq co (1+ co))
   
8.     )
   
9.   )
   
10.   (setq total (+ total co))
    
11. )
    
12. (setq average (/ total 500.0))

(setq total 0)<br /> (repeat  500<br />   (setq  co 0)<br />   (foreach one (RANDLIST 1 2 200 200)<br />     (if  (= one 1)<br />       (setq co (1+ co))<br />     )<br />   )<br />   (setq total (+ total co))<br /> )<br /> (setq average (/ total 500.0))

结果之一：
50148
100.296
说明取的平均数还是趋向平均分布的

革天明

Gu_xl 发表于 2013-3-3 20:58
生成范围在a到b之间的n个随机整数,且重复数不大于i

(f 1 3 400 5)
nil
(f 1 10 400 5)
nil
(f 1 50 400 5)
nil
(f 1 75 400 5)
nil
(f 1 80 400 5)
(1 1 1 1 1 2 2 2 2 2 3 3 3 3 3 4 4 4 4 4 5 5 5 5 5 6 6 6 6 6 7 7 7 7 7 8 8 8 8 8 9 9 9 9 9 10 10 10 10 10 11 11 11 11 11 12 12 12 12 12 13 13 13 13 13 14 14 14 14 14 15 15 15 15 15 16 16 16 16 16 17 17 17 17 17 18 18 18 18 18 19 19 19 19 19 20 20 20 20 20 21 21 21 21 21 22 22 22 22 22 23 23 23 23 23 24 24 24 24 24 25 25 25 25 25 26 26 26 26 26 27 27 27 27 27 28 28 28 28 28 29 29 29 29 29 30 30 30 30 30 31 31 31 31 31 32 32 32 32 32 33 33 33 33 33 34 34 34 34 34 35 35 35 35 35 36 36 36 36 36 37 37 37 37 37 38 38 38 38 38 39 39 39 39 39 40 40 40 40 40 41 41 41 41 41 42 42 42 42 42 43 43 43 43 43 44 44 44 44 44 45 45 45 45 45 46 46 46 46 46 47 47 47 47 47 48 48 48 48 48 49 49 49 49 49 50 50 50 50 50 51 51 51 51 51 52 52 52 52 52 53 53 53 53 53 54 54 54 54 54 55 55 55 55 55 56 56 56 56 56 57 57 57 57 57 58 58 58 58 58 59 59 59 59 59 60 60 60 60 60 61 61 61 61 61 62 62 62 62 62 63 63 63 63 63 64 64 64 64 64 65 65 65 65 65 66 66 66 66 66 67 67 67 67 67 68 68 68 68 68 69 69 69 69 69 70 70 70 70 70 71 71 71 71 71 72 72 72 72 72 73 73 73 73 73 74 74 74 74 74 75 75 75 75 75 76 76 76 76 76 77 77 77 77 77 78 78 78 78 78 79 79 79 79 79 80 80 80 80 80)
应该是要求(>=（/ n i) (1+ (- b a )))