双色球号码如何生成

ynhh

看到本站的一个贴

http://bbs.mjtd.com/thread-186073-1-1.html

感觉是不真实的
因为一组双色球号码中是不能出现重复号码的
从标有 1-33 号的33个球中选出来的号码，怎么会有重复的？
我一时好奇
不知如何生成不重复的随机数？

ynhh

另外我发现



;;; 求随机数(0~1)－－ｂｙ　狂刀
(defun zzdatarnd ()                        ; 随机数种子
  (* (rem (getvar "cputicks") 1e3) 1e-3)
)
;;; 求ｎ个ａ～ｂ随机数列表----ｂｙ　狂刀
(defun ssqmakerand-list        (a b n / c lst)        ; 随机数表
  (setq c (- b a))
  (repeat n
    (setq lst (cons (rtos (fix (+ a (* (zzdatarnd) c))) 2 0) lst))
  )
)

狂刀 大师 的这个随机数，感觉也是有问题，一直不会出现 ａ ｂ 中的较大值


(ssqmakerand-list 1 5 30) = ("4" "1" "1" "3" "1" "3" "4" "2" "4" "1" "1" "3" "4" "3" "3" "1" "2" "3" "1" "1" "3" "1" "3" "1" "3" "4" "1" "2" "4" "4")

(ssqmakerand-list 10 16 30) = ("12" "14" "11" "12" "15" "11" "15" "10" "13" "10" "12" "13" "10" "12" "14" "11" "13" "10" "12" "10" "14" "15" "11" "13" "15" "11" "13" "12" "12" "14")

(ssqmakerand-list 7 2 30) = ("2" "3" "6" "5" "3" "6" "4" "2" "6" "6" "4" "2" "6" "5" "3" "2" "6" "5" "3" "6" "4" "2" "6" "4" "4" "3" "2" "2" "5" "5")

(ssqmakerand-list 12 3 30) = ("11" "7" "4" "8" "5" "9" "7" "6" "3" "7" "3" "10" "10" "9" "3" "9" "5" "11" "11" "8" "6" "8" "8" "3" "5" "4" "11" "10" "9" "11")

(ssqmakerand-list 1 33 100) = ("28" "9" "16" "29" "3" "17" "30" "14" "27" "2" "14" "21" "3" "8" "21" "29" "29" "6" "20" "30" "6" "13" "26" "1" "27" "5" "16" "29" "5" "19" "6" "6" "30" "4" "16" "5" "28" "15" "25" "22" "10" "30" "1" "28" "28" "23" "32" "4" "4" "29" "12" "7" "27" "10" "4" "5" "28" "3" "13" "26" "7" "18" "32" "11" "24" "3" "12" "20" "32" "10" "17" "27" "4" "26" "6" "14" "13" "30" "9" "17" "29" "18" "14" "24" "32" "8" "8" "21" "22" "12" "3" "17" "29" "19" "29" "20" "3" "26" "22" "25")


(ssqmakerand-list 33 1 100) = ("19" "9" "10" "26" "21" "11" "30" "17" "5" "23" "11" "32" "21" "7" "22" "14" "3" "27" "16" "8" "5" "26" "12" "30" "16" "7" "28" "26" "22" "6" "26" "13" "32" "22" "10" "10" "16" "4" "23" "21" "10" "28" "16" "23" "24" "10" "1" "26" "15" "5" "27" "29" "12" "31" "18" "15" "32" "20" "7" "10" "19" "5" "22" "19" "1" "21" "6" "2" "7" "24" "12" "8" "26" "19" "9" "1" "9" "1" "21" "17" "21" "10" "30" "16" "11" "8" "28" "23" "26" "31" "7" "8" "10" "25" "27" "24" "27" "20" "13" "18")

xyp1964

;| (ssqmakerand-list-NotSame 1 33 7)
(repeat 100
  (princ "\n")
  (princ (ssqmakerand-list-NotSame 1 33 7)))|;
(defun ssqmakerand-list-NotSame        (a b n / c lst x) ; 随机数表
  (defun rand () (* (rem (getvar "cputicks") 1e3) 1e-3))
  (setq        a1  (1- a)
        b1  (1+ b)
        c   (- b1 a1)
        lst '()
  )
  (while (< (length lst) n)
    (setq x (fix (+ a1 (* (rand) c))))
    (if        (and (not (member x lst)) (<= a x b))
      (setq lst (cons x lst))
    )
  )
)

lee50310

請參考 lee mac 樂透程式 lotto.lsp
可自設(1 - 49 號) 隨機產生6個號碼

中国梦

谢谢分享.

lyyl2000

楼主你在开奖号码下面画线，是不是没明白双色球的开奖规则。

lee50310

利用 lee mac 所寫的 lotto.lsp

你可以自行改寫  由外部載入 17期大樂透.txt  文字檔資料
繪製成表格 並做每個球號出現次數的統計如 動態圖所示

笨笨熊007

改自leemac 双色球随机 特殊号码在最后一位

sunny_8848

笨笨熊007 发表于 2022-11-27 11:28
改自leemac 双色球随机 特殊号码在最后一位

有点亮瞎眼，能发上来吗

中国梦

谢谢分享支持