Мне нужно сгенерировать целое число z, которое может принимать значения +1 или -1: оно представляет заряд мюонов. Проблема в том, что положительных мюонов в 1,3 раза больше, чем отрицательных. Как я могу генерировать платежи с этим распределением в Фортране?