貧しいほうの資産を超えない取引モデル。 N<- 12 Mstart<- 100 M<- rep(Mstart,N) ylim<- c(0,Mstart*N) library(gtools) trials<- 1000 Mmove<- matrix(0,trials+1,N) Mmove[1,]<- M for(t in 1:trials){ trade<- matrix(sample(N),nc=2) for(i in 1:nrow(t…