random - 获取一个数字以显示一定百分比的时间

Question

我正在寻找一个代码来让一个数字在 50% 的时间、35% 的时间和 15% 的时间出现。我对 BGscript 很陌生，但我没有太多运气使它可靠或工作。即使你没有做过任何 BGscript 而是用另一种语言做过。那真的很棒！

Answer 1

我在这里写了一篇博客文章和示例代码，用于在 BGScript 中生成随机无符号整数：http: //www.sureshjoshi.com/embedded/bgscript-random-number-generator/

本质上，它使用模块序列号和/或 ADC LSB 噪声作为种子的 xorshift 来生成伪随机数。

# Perform a xorshift (https://en.wikipedia.org/wiki/Xorshift) to generate a pseudo-random number
export procedure rand()
    t = x ^ (x << 11)
    x = y
    y = z 
    z = rand_number
    rand_number = rand_number ^ (rand_number >> 19) ^ t ^ (t >> 8)
end

并在这里初始化：

# Get local BT address
call system_address_get()(mac_addr(0:6))
...
tmp(15:1) = (mac_addr(0:1)/$10)+ 48 + ((mac_addr(0:1)/$10)/10*7)
tmp(16:1) = (mac_addr(0:1)&$f) + 48 + ((mac_addr(0:1)&$f )/10*7)
...
# Seed the random number generator using the last digits of the serial number 
seed = (tmp(15) << 8) + tmp(16)
call initialize_rand(seed)

# For some extra randomness, can seed the rand generator using the ADC results  
from internal temperature
    call hardware_adc_read(14, 3, 0)
end

event hardware_adc_result(input, value)
    if input = 14 then
        # Use ambient temperature check to augment seed
        seed = seed * (value & $ff)
        call initialize_rand(seed)
    end if
end

可以在这个散点图中查看生成器的“随机性”——一目了然没有明显的趋势。

一旦你有了它，你可以通过设置“if”检查来生成你的分布，来做类似于 Rich 和 John 推荐的事情。请注意，此代码不提供最小/最大值来生成随机值（由于 BGScript 中当前没有模实现）。

伪代码可能是：

call rand()
if rand_number <= PROBABILITY1 then
    # Show number 1
end if
if rand_number > PROBABILITY1 and rand_number <= PROBABILITY2 then
    # Show number 2
end if
if rand_number > PROBABILITY2 then
    # Show number 3
end if