4 lines
112 B
Text
4 lines
112 B
Text
REAL :: n=1000, m=1, s=0.5, array(n)
|
|
|
|
pi = 4 * ATAN(1)
|
|
array = s * (-2*LOG(RAN(1)))^0.5 * COS(2*pi*RAN(1)) + m
|