Я пытаюсь выяснить, как создать выход, который имеет равное распределение на случайной выборке. Основываясь на фрагменте кода ниже, функция создает три случайных числа для трех элементов в списке. Эти значения получают, чем сравнивают друг с другом, а максимальное их значение получает количество. Однако я пытаюсь выяснить, как управлять случайностью с помощью вероятности, например, 50% (50) 25% (25) 25% (25) N = 100.
to numberGenerator
let i 0
set counter_red 0
set counter_blue 0
set counter_green 0
while [i < 100] [
let numberS_red1 random-float 1
let numberS_blue1 random-float 1
let numberS_green1 random-float 1
let usedcolors [red blue green]
let OPstrength1 ( list numberS_red1 numberS_blue1 numberS_green1)
let strategies (map list usedcolors OPstrength1)
print strategies
if (numberS_red1 > numberS_blue1) and (numberS_red1 > numberS_green1)
[set counter_red counter_red + 1]
if (numberS_blue1 > numberS_red1) and (numberS_blue1 > numberS_green1)
[set counter_blue counter_blue + 1]
if (numberS_green1 > numberS_red1) and (numberS_green1 > numberS_blue1)
[set counter_green counter_green + 1]
set i i + 1
]
print counter_red
print counter_blue
print counter_green
end
counter_red = 26
counter_blue = 36
counter_green = 38