随机数生成

Lisphk

1. (defun rnd (/ modulus multiplier increment random)
   
2.     (if        (not seed)
   
3.       (setq seed (getvar "DATE"))
   
4.     )
   
5.     (setq modulus    65536
   
6.           multiplier 25173
   
7.           increment  13849
   
8.           seed             (rem (+ (* multiplier seed) increment) modulus)
   
9.           random     (/ seed modulus)
   
10.     )
    
11. )

(defun rnd (/ 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 />     )<br /> )

_$ (repeat 100 (princ "\n")(princ (rnd)))

0.963695
0.316046
0.0449342
0.340961
0.233077
0.449954
0.908248
0.535303
0.399939
0.881938
0.243306
0.958635
0.928783
0.46925
0.645747
0.601253
0.561978
0.895138
0.518558
0.879
0.279604
0.69265
0.282894
0.490073
0.815929
0.582891
0.317403
0.195666
0.701278
0.471483
0.84483
0.118186
0.298047
0.946978
0.484624
0.6508
0.799603
0.624974
0.690317
0.572059
0.660826
0.181686
0.79042
0.45935
0.429039
0.420714
0.851578
0.994924
0.444087
0.216775
0.0827493
0.258259
0.376295
0.680125
0.999141
0.598493
0.0710751
0.385447
0.0646712
0.180688
0.668923
0.00893101
0.0316843
0.799677
0.469551
0.217316
0.696693
0.0552297
0.508916
0.152627
0.290878
0.482307
0.317886
0.356374
0.22411
0.730132
0.831298
0.476947
0.40123
0.383852
0.916156
0.603965
0.829353
0.522515
0.487719
0.573333
0.73493
0.607137
0.682234
0.0867476
0.909331
0.792589
0.0550502
0.989405
0.50169
0.257064
0.272885
0.549667
0.977771
0.642874
_$

konglong604

谢谢你分享的程序，很有用。

kqqt6236

再加一个，替换成整数

Lisphk

kqqt6236 发表于 2018-11-28 08:53
再加一个，替换成整数

在生成其他的就很容易了，上面得到的随机数乘上一个初始大数，然后FIX就是整数了