symulacje

Wyznaczenie przeciętnych miesięcznych kosztów u trzech operatorów

# wprowadzenie parametrów rozkładów
ab=c(120,20,85)
cw=c(0,0.07,0.05)
cp=c(0.25,0.35,0.29)
czas=c(200,100,300,350)
koszt=c(0,0,0)
for (mies in 1:12)
{
 czas=c(rtr(150,200,250),rtr(50,100,300),rtr(5  0,300,400),rnorm(1,260,40))
 for (i in 1:3)
  {
 koszt[i]=koszt[i]+ab[i]+cw[i]*czas[i]+cp[i]*(sum(czas[-i]))
  }
}
# wyświetlenie wyników
koszt/12