?? gamdev.txt
字號:
Function GAMDEV(IA, IDUM&)
If IA < 1 Then Print "Abnormal exit": Exit Function
If IA < 6 Then
X = 1#
For J = 1 To IA
X = X * RAN1(IDUM&)
Next J
X = -Log(X)
Else
Do
Do
Do
V1 = 2# * RAN1(IDUM&) - 1#
V2 = 2# * RAN1(IDUM&) - 1#
Loop While V1 ^ 2 + V2 ^ 2 > 1#
Y = V2 / V1
AM = IA - 1
S = Sqr(2# * AM + 1#)
X = S * Y + AM
Loop While X <= 0!
E = (1# + Y ^ 2) * Exp(AM * Log(X / AM) - S * Y)
Loop While RAN1(IDUM&) > E
End If
GAMDEV = X
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -