待ち行列のための練習 その１

よくわかってないけど。

Rのプログラム
mm1.mu=function(lam,mu){ #lam 平均到着率 mu 平均サービス率
ro=lam/mu; p0=1-ro
W=1/(mu - lam);L=W*lam; Wq=W * lam/mu; Lq=Wq*lam
a=c(ro, W…