[原创]：随机数的建立

狂刀

感觉还是用vb的(rnd)取随机数更保险些

informore

好像程序语言中一般都是用的RND的嘛
像C　VB　等等
并且好像RND本来就是调用的CPU时钟产生的随机数

hhj108

感谢楼主的好东西,下载了

FLOODITIDE

楼主的程序为何在我这里只能生成偶数
睹计?计<100>:
睹计?计<9>:
839026474
840264450
841852046
843139082
844370662
845571866
846792890
848013050
849208406
850463090
851677826
852884366
854083598
855319514
856542442
857765982
859000046
860316902
861524138
862715586
863923026
865136998
866343538
867558818
868789414
870006306
871231514
872433262
873639698
874852070
876062454
877272074
878483338
879699110
880894942
882109678
883323734
884513034
885799850
887021914
888333598
889532166
890752290
891990266
893192182
894415214
895682970
896901718
898116622
899317266
900532254
901746378
902974746
904195466
905413058
906619886
907817742
909036946
910252498
911482618
912696910
913913958
915131922
916328366
917629834
918836358
920047182
921274210
922489454
923711430
924932882
926137874
927346914
928562330
929791822
931012318
932232154
933434394
934629546
935844350
937050634
938307802
939499262
940722650
941929874
943108498
944455374
945777058
947145982
948369474
949561190
950765094
951975750
953161942
954371270
955594150
956819578
958014662
959224382
960437638

zhynt

修改了一下，
[PHP]
;;;
;;;生成随机数
;;;
;;;
(defun rnd_test (no2 / l)
  (setq        l (strlen
            (rtos (getvar "cputicks") 2 0)
          )
  )
  (setq        nb (rtos (getvar "cputicks") 2 0)
        l  (strlen nb)
        nb (substr nb (- l (- no2 1)))
  )
  nb
)
(defun rnd ()
  (setq        n1 (atof (rnd_test 3))
        n2 (atof (rnd_test 3))
  )
  (if (< n1 n2)
    (setq nc (/ n1 n2))
    (setq nc (/ n2 n1))
  )
  (setq nc (rtos (* nc 1000000)))
)
[/php]



命令: (repeat 25 (princ (strcat "\n" (rnd))))

664383.5616
640591.9662
982646.4208
95384.6154
366233.7662
103448.2759
312661.4987
231460.6742
622418.8791
343209.8765
633187.7729
491686.4608
579462.1027
233560.0907
299684.5426
107942.9735
83076.9231
433242.5068
734513.2743
357377.0492
855421.6867
736501.0799
991578.9474
734806.6298
58823.5294"

陌生人

(defun rnd ( / a)
  (rem (+ (/ (rem(getvar "cputicks")1e3)1e3) (* 1e8 (rem(getvar "cdate")1e-8))) 1)
)

yyh1981

好深奥啊~~学了 不到一个月的LISP，有点看不懂了，还要加油啊~~

fangzheng158

我也想知道