#пусть у нас есть наборы задач нескольких стандартных (плановых) сложностей (сколько-то задач на 1 день, сколько-то на 5, например)
#каждый блок непрерывно в течение итерации непрерывно решается командой исполнителей
#посмотрим, какие будут длительности задач!
require(stats)
iteration.length <- 50;#длина итерации в днях
task.avg<-c(3,8) #возможные длины задач
workers<-c(2,2)
task.count<-iteration.length*workers/task.avg;
tasks.dist<- function(avg.count) {
       rgamma(avg.count[2],1,iteration.length/avg.count[1]) * iteration.length 
   };

task.lengths<-unlist(apply(
   rbind(task.avg,task.count), 
   MARGIN =2,
   FUN =tasks.dist
))

hist(task.lengths,breaks = 30)