Вы можете использовать распределение Дирихле с большими и равными параметрами.
> library(bayesm)
> rdirichlet(c(100,100,100))
[,1]
[1,] 0.3360327
[2,] 0.3280179
[3,] 0.3359495
> rdirichlet(c(10000,10000,10000))
[,1]
[1,] 0.3311760
[2,] 0.3353209
[3,] 0.3335032
> rdirichlet(c(1000000,1000000,1000000))
[,1]
[1,] 0.3330997
[2,] 0.3334884
[3,] 0.3334119