MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 数学 貧しいほうの資産を超えない取引モデル。 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(trade)){ trademoney<- runif(1)*min(M[trade[i,]]) M[trade[i,1]]<- M[trade[i,1]]-tr… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20110424%2F1303651066" title="富の移動モデル - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2011-04-24.png Hatena Blog https://hatena.blog 2011-04-24 22:17:46 rich https://mikuhatsune.hatenadiary.com/entry/20110424/1303651066 1.0 100%