基 礎 函 數(shù) 參 考
Random
產(chǎn)生浮點型偽隨機數(shù).
參 數(shù)
| 最小值 |
[可選參數(shù)] 隨機數(shù)的最小值,默認為 0. |
| 最大值 |
[可選參數(shù)] 隨機數(shù)的最大值,默認為 1. |
| 標志 |
[可選參數(shù)] 設為 1, 則返回整數(shù),默認返回浮點數(shù). |
返 回 值
| 成功: |
返回最小值與最大值之間的偽隨機數(shù). |
| 失敗: |
返回 0, 設置 @error 為非 0 值. |
備 注
默認隨機函數(shù)工作于十進制/浮點數(shù). 如果需要整數(shù), 則將標志參數(shù)設為 1.
如果只提供一個參數(shù), 則它解釋為最大值.
其結果在取整數(shù)時, 返回值在最小值及最大值之間, 包含最小, 最大值(取浮點數(shù)時可以缺少"最大值"參數(shù)).
如果最小和最大值是相同的, 則隨機將返回 0, 并設置 @error 為非零值.
當使用整數(shù)時, 最大-最小必須小于 2^31.
關于源型的說明
函數(shù)使用 Mersenne Twister 的 MT19937 隨機數(shù)發(fā)生器,
由 Takuji Nishimura, Makoto Matsumoto, Shawn Cokus, Matthe Bellew 與
Isaku Wada 編寫.
Mersenne Twister 算法用于生成隨機數(shù). 設計考慮了其它各種發(fā)生器的缺點.
周期為 219937-1, 而且在 623 維空間上的分布是均勻的.
產(chǎn)生隨機數(shù)的速度也挺快; 它避免了乘法和除法的使用, 同時還很好地利用了緩沖和管道.
詳細說明請查看算法作者的網(wǎng)頁
http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html
版權 (C) 1997 - 2002, Makoto Matsumoto 與 Takuji Nishimura 保留所有版權.
如果滿足以下條件, 則允許以源代碼格式或二進制格式, 經(jīng)過修改或不經(jīng)修改, 進行再分發(fā)和使用:
1. 再分發(fā)源代碼時,必須保留上述版權說明,此條件列表和以下免責聲明.
2. 以二進制格式再分發(fā)必須在文檔和/或隨分發(fā)版本一起提供的其他資料中復制上述版權說明, 此條件列表和以下免責聲明.
3. 沒有專門的事先書面許可,不得用貢獻者的姓名來簽署或宣傳由此軟件衍生的產(chǎn)品.
此軟件由版權擁有者和貢獻者"照原樣"提供. 對于任何明示或暗示的擔保, 包括但不限于對商業(yè)可行性, 針對特定用途的適用性的暗示擔保,
我們均不負責.
對于任何直接,間接,偶然,特別,典型或因果性損壞(包括但不限于替代商品或服務的獲得; 用法, 數(shù)據(jù)或利潤的丟失;或業(yè)務中斷),
無論起因是什么, 無論根據(jù)任何責任理論, 無論是否在合同中有嚴格賠償責任, 版權所有者及其貢獻者均一概不負責.
對于由于使用此軟件, 而以任何形式出現(xiàn)的民事侵權行為(包括疏忽或其他形式), 版權所有者及其貢獻者均一概不負責.
即使被告知了這種損壞的可能性,也是如此.
相 關 函 數(shù)
Round, SRandom
函 數(shù) 示 例
;硬幣翻轉
Local $Msg
If Random() < 0.5 Then ; 返回 0 到 1 之間的數(shù)值.
$Msg
= "正面朝上. 贏了
50%"
Else
$Msg
= "背面朝上. 輸了
50%"
EndIf
MsgBox(0, "投擲硬幣", $Msg)
;模型滾動
MsgBox(0, "模型滾動", "你投擲:
" & Random(1, 6, 1))
Local $StockPrice
= 98
;摹擬股票市場博弈
Local $StockPriceChange =
Random(-10,
10, 1) ;
產(chǎn)生一個-10到10之間的整數(shù)
$StockPrice =
$StockPrice +
$StockPriceChange
If $StockPriceChange <
0 Then
MsgBox(4096, "存貨變化", "您的股票下跌到到 $" & $StockPrice)
ElseIf $StockPriceChange >
0 Then
MsgBox(4096, "存貨變化", "您的股票上升到 $" & $StockPrice)
Else
MsgBox(4096, "存貨變化", "您的存貨停留在 $" & $StockPrice)
EndIf
;隨機字符
Local $Letter
If Random() < 0.5 Then
;大寫
$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;小寫
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
EndIf