自己寫 自己的方式產生亂數

sjgau

一秒鐘，可以執行督少個 家法的運算？

一秒鐘，可以產生多少個亂數？

餐猜看

sunnyso

回復 1# sjgau


  期待解說

sjgau

回復 2# sunnyso


    先解釋，為何要 自己寫

一 自己生的小孩，才可以打

二 從寫作的 過程，可以發現很多問題和 學問

敬請期待

sunnyso

回復 3# sjgau

期待ing + 關注ing

c_c_lai

回復 4# sunnyso
VBA Function Example

The RND function can only be used in VBA code in Microsoft Excel.
Here are some examples of what the RND function would return:

1.     Int ((10 - 1 + 1) * Rnd + 1)     '   傳回介於 1 到 10 間的亂數值
   
2.     Int ((200 - 100 + 1) * Rnd + 100)   '  傳回介於 100 到 200 間的亂數值
   
3.     Int ((600 - 300 + 1) * Rnd + 300) '  傳回 介於 300 到 600 間的亂數值

複製代碼

For example:

1. Sub Demo()
   
2.     Dim retNum As Integer
   
3. 
   
4.     retNum = Int ((300 - 200 + 1) * Rnd + 200)
   
5.     MsgBox "retNum 的亂數值 = " & retNum
   
6. End Sub

複製代碼

In this example, the variable called retNum would now contain a random number between 200 and 300.

sjgau

不准 使用 rnd

ML089

回復 6# sjgau


  亂數不准使用 rnd 要如何使用 ? 期待

sjgau

http://en.wikipedia.org/wiki/Linear_congruential_generator

上面所介紹的是 目前很流行的產生亂數的方法之一
線性同餘。
我習慣使用 Apple Lab. 的係數
R(n)= (R(n-1)*A + B) MOD C

A= 7^5= 16807,
B= 0
C= (2^31) - 1 = 2147483647

sunnyso

回復 8# sjgau

不是很懂, 可否用vba 寫一段code? 謝謝

sjgau

回復 9# sunnyso


    OK

等我 11/8 日本回來 再說