[原创]：随机数的建立

xyp1964

[php]
(defun c:test (/ l nb)
  (setq        no1 (ureal 1 "" "随机数个数" no1)
        no2 (ureal 1 "" "随机数位数" no2)
  )
  (setq l (strlen (rtos (getvar "cputicks") 2 0)))
  (if (> l no2)
    (repeat (fix no1)
      (setq nb (rtos (getvar "cputicks") 2 0)
            l  (strlen nb)
            nb (substr nb (- l (- (fix no2) 1)))
      )
      (princ "\n")
      (princ nb)
    )
    (alert "\n随机数位数太多!")
  )
  (princ)
)
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)
[/php]
命令: test
随机数个数<50.00000>: 30

随机数位数<12.00000>: 8

44342134
45904933
50457732
55047195
57353788
59814841
62076590
64453664
66749881
69002902
71260884
73516292
78064277
80534969
82898123
85799151
88098887
91491401
93853335
96244971
98607749
00915761
04366178
06759751
09081343
11936923
14213316
16468180
19896480
22184353

qjcpj

1楼楼主，"cputicks"是个什么系统变量，能取值，但我怎么在帮助文档中找不到它的说明......

xyp1964

偶也不知道。
今天在网上向高手学的。

zxdcad

xyp1964,你竖着看看你所列数字第1列 456789012，这与随机有些差别哟！

另外我做了个试验，不知问题在哪里？

测试程序如下：

(DEFUN C:TESTRND (/ x y os)  ;随机数测试程序
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "CMDECHO" 0)
  (command "_.undo" "_Group")
  (REPEAT 10000
    (SETQ X (Rand 1000)) ;(SETQ X (Rand1 1000))
    (SETQ Y (Rand 1000)) ;(SETQ Y (Rand1 1000))
    (COMMAND "POINT" (LIST X Y))
  )
  (command "_.undo" "_end")
  (setq js (getvar "date"))
  (setvar "osmode" os)
  (setvar "CMDECHO" 1)
  (princ)
)

(defun rand (valmax /)   
(setq seed (rem (getvar "cputicks") valmax) )
)

(defun rand1 (valmax /)
  (if (= seed1 nil) (setq seed1 (getvar "date")))
  (setq seed1 (rem (+ 69991.0 (* seed1 69997.0)) valmax))
)

效果图如下：(两种情况在我的电脑上运行大约都是30秒左右，相差很小)

LUCAS

最初由 xyp1964 发布
[B][php]
(defun c:test (/ l nb)
  (setq        no1 (ureal 1 "" "随机数个数" no1)
        no2 (ureal 1 "" "随机数位数" no2)
  )
  (setq l (strlen (rtos (getvar "cputicks") 2 0)))
  (if (> l no2)
    (repeat (fix... [/B]

http://www.mjtd.com/bbs/dispbbs. ... p;id=30632&skin

2. 
   
3. ;;BY LUCAS (龍龍仔)
   
4. ;;我在明經不是有給一合連結說明那系統變數嗎?
   
5. ;;以下是的一個給隨機名稱的程序
   
6. (defun RANDOM_NAME (/ A N B)
   
7.   (setq A (rtos (fix (getvar "cputicks")) 2 0))
   
8.   (setq        N (strlen A)
   
9.         B ""
   
10.   )
    
11.   (repeat N
    
12.     (setq B (strcat B (substr A N 1)))
    
13.     (setq N (1- N))
    
14.   )
    
15.   (substr
    
16.     (strcat "LAI$"
    
17.             (rtos (* 6.789
    
18.                      (+        (atof A)
    
19.                         (atof B)
    
20.                         (atof (substr (rtos (* (getvar "CDATE") 1E8)) 4))
    
21.                      )
    
22.                   )
    
23.                   2
    
24.                   0
    
25.             )
    
26.     )
    
27.     1
    
28.     18
    
29.   )
    
30. )
    

<br /> ;;BY LUCAS (龍龍仔)<br /> ;;我在明經不是有給一合連結說明那系統變數嗎?<br /> ;;以下是的一個給隨機名稱的程序<br /> (defun RANDOM_NAME (/ A N B)<br />   (setq A (rtos (fix (getvar "cputicks")) 2 0))<br />   (setq        N (strlen A)<br />         B ""<br />   )<br />   (repeat N<br />     (setq B (strcat B (substr A N 1)))<br />     (setq N (1- N))<br />   )<br />   (substr<br />     (strcat "LAI$"<br />             (rtos (* 6.789<br />                      (+        (atof A)<br />                         (atof B)<br />                         (atof (substr (rtos (* (getvar "CDATE") 1E8)) 4))<br />                      )<br />                   )<br />                   2<br />                   0<br />             )<br />     )<br />     1<br />     18<br />   )<br /> )<br />

它山之石

龙龙仔就不要卖关子了，在这儿再说说cputicks吧。给个链接也行啊。
我原来也是用取得系统时间的方法写随机数的。不知这种方法有什么特别。

xyp1964

命令: sjpt
随机数个数<20000.000>:
随机数位数<3.000>:
产生的点阵效果：

wkai

xyp1964 你的随机数程序效果不好呀

1. 
   
2. 6678361976
   
3. 6678713642
   
4. 6679065367
   
5. 6679416890
   
6. 6679767032
   
7. 6680117474
   
8. 6680489042
   
9. 6680842172
   
10. 6681193238
    
11. 6681544676
    
12. 6681940275
    
13. 6682310273
    
14. 6682934535
    
15. 6683315464
    
16. 6683677932
    
17. 6684029298
    
18. 6684378732
    
19. 6684729018
    
20. 6685078698
    
21. 6685428834
    
22. 6685791582
    
23. 6686149248
    
24. 6686500446
    
25. 6686849562
    
26. 6687198162
    
27. 6687547830
    
28. 6687896250
    
29. 6688245690
    
30. 6689143942
    

复制代码

ll_j

在网上搜索，结论是“cputicks”还是一个关于时间的未公开的系统变量。

xyp1964

最初由 wkai 发布
[B]xyp1964 你的随机数程序效果不好呀
[code]
6678361976
6678713642
6679065367
6679416890
6679767032
6680117474
6680489042
6680842172
6681193238
6681544676
6681940275
6682310273
6682934535
66... [/B]

位数越多越会这样。
但“决不会”连号。
可以把前几位看成是“彩票”的组号。

xyp1964

命令: sjd
随机数个数<10000.000>:
随机数位数<3.000>: 5
效果：

xyp1964

命令: sjd
随机数个数<1000.000>:
随机数位数<1.000>: 2
效果：

梦断江南

“cputicks”相隔0.01 毫秒的cpu内部“计时”？
以6678361976
6678713642
6679065367
6679416890
6679767032
6680117474
6680489042
6680842172
6681193238
为例，相隔是“等距”的，尾数有取整误差

xyp1964

星光：

xyp1964

星光效果：