본문내용
도착시간이 T보다 큰 경우
if((min(AT, DT)>T)&&(SV==0)) {
LastDT <- max(t-T, 0)
VecServiceTime <- VecDT-VecAT
VecAn[i] <- An
MeanST[i] <- mean(VecServiceTime)
VecLDT[i] <- LastDT
break;
}
}
}
# 총 고객수, 평균 서비스 시간, 마지막 고객이 떠난 시간
cat("\tTotalCustomers : ",mean(VecAn),"\n",
"\tMeanOfServiceTime : ",mean(MeanST),"\n",
"\tMeanOfOverTime : ",mean(VecLDT),"\n")
}
SSS(10, 9, 100)
TotalCustomers : 89.46
MeanOfServiceTime : 0.2114649
MeanOfOverTime : 0.1811474
SSS(10, 9, 500)
TotalCustomers : 89.306
MeanOfServiceTime : 0.2074626
MeanOfOverTime : 0.1383027
SSS(10, 9, 1000)
TotalCustomers : 89.781
MeanOfServiceTime : 0.2045496
MeanOfOverTime : 0.1437952
이 결과를 정리하면 다음과 같은 표를 얻을 수 있다.
시행횟수
100
500
1000
총 고객
89.46
89.306
89.781
초과 근무 시간
0.1811474
0.1383027
0.1437952
평균 서비스 시간
0.2114649
0.2074626
0.2045496
if((min(AT, DT)>T)&&(SV==0)) {
LastDT <- max(t-T, 0)
VecServiceTime <- VecDT-VecAT
VecAn[i] <- An
MeanST[i] <- mean(VecServiceTime)
VecLDT[i] <- LastDT
break;
}
}
}
# 총 고객수, 평균 서비스 시간, 마지막 고객이 떠난 시간
cat("\tTotalCustomers : ",mean(VecAn),"\n",
"\tMeanOfServiceTime : ",mean(MeanST),"\n",
"\tMeanOfOverTime : ",mean(VecLDT),"\n")
}
SSS(10, 9, 100)
TotalCustomers : 89.46
MeanOfServiceTime : 0.2114649
MeanOfOverTime : 0.1811474
SSS(10, 9, 500)
TotalCustomers : 89.306
MeanOfServiceTime : 0.2074626
MeanOfOverTime : 0.1383027
SSS(10, 9, 1000)
TotalCustomers : 89.781
MeanOfServiceTime : 0.2045496
MeanOfOverTime : 0.1437952
이 결과를 정리하면 다음과 같은 표를 얻을 수 있다.
시행횟수
100
500
1000
총 고객
89.46
89.306
89.781
초과 근무 시간
0.1811474
0.1383027
0.1437952
평균 서비스 시간
0.2114649
0.2074626
0.2045496