# 2006 年 08 月 01 日作成
# じゃんけんの結果の系列のグラフ表示
#
kaisu=1
ta=0
tb=0
t=0
owari=100
a=trunc(runif(1,0,1)*3)
b=trunc(runif(1,0,1)*3)
res.a=a+1
res.b=b+1
cou=1
wl=sign(sin(pi*a*(2/3)-pi*b*(2/3)))
res=wl
if(wl>0){ta=ta+1}
if(wl<0){tb=tb+1}
t=max(ta,tb)
cusa=sum(res>0)
cusb=sum(res<0)
while(t<owari){
a=trunc(runif(1,0,1)*3)
b=trunc(runif(1,0,1)*3)
res.a=c(res.a,a+1)
res.b=c(res.b,b+1)
wl=sign(sin(pi*a*(2/3)-pi*b*(2/3)))
if(wl>0){ta=ta+1}
if(wl<0){tb=tb+1}
t=max(ta,tb)
res=c(res,wl)
cusa=c(cusa,sum(res>0))
cusb=c(cusb,sum(res<0))
kaisu=kaisu+1
cou=c(cou,kaisu)
}
op=par(mfrow=c(3,1))
plot(cou,res.a,ylim=c(0,4))
plot(cou,res.b,ylim=c(0,4))
plot(cou,cusa,type="l",ylim=c(0,105))
par(new=T)
plot(cou,cusb,type="l",,ylim=c(0,105),col="red")