{"published":"2010-11-21 17:00:18","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkabira.hatenadiary.org%2Fentry%2F20101121%2F1290326418\" title=\"ImageJ\u3067\u3071\u3089\u3071\u3089\u30a2\u30cb\u30e1 - KABIRA\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","url":"https://kabira.hatenadiary.org/entry/20101121/1290326418","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","blog_title":"KABIRA\u306e\u65e5\u8a18","image_url":"https://cdn-ak.d.st-hatena.com/diary/KABIRA/2010-11-21.gif","author_url":"https://blog.hatena.ne.jp/KABIRA/","width":"100%","height":"190","blog_url":"https://kabira.hatenadiary.org/","author_name":"KABIRA","title":"ImageJ\u3067\u3071\u3089\u3071\u3089\u30a2\u30cb\u30e1","categories":["Mac","R","\u30b7\u30df\u30e5\u30ec\u30fc\u30b7\u30e7\u30f3","\u62e1\u6563","\u30b0\u30e9\u30d5\u30a3\u30af\u30b9"],"type":"rich","description":"ImageJ\u3068\u3044\u3046\u30bd\u30d5\u30c8\uff08ImageJ\uff09\uff08Wiki\uff09 \u30a2\u30cb\u30e1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u3063\u3066\u307f\u305f \u3053\u3061\u3089\u3092\u53c2\u8003\u306bR\u3067\u30d5\u30a1\u30a4\u30eb\u3092\u66f8\u304d\u51fa\u3059 \u4e2d\u5fc3\u306b\u96c6\u4e2d\u3057\u3066\u3044\u305f\u70b9\u304c\u30e9\u30f3\u30c0\u30e0\u306b\u52d5\u3044\u3066\u6563\u3089\u3070\u3063\u3066\u3044\u304f\u69d8\u5b50 #N\u304b\u3051M\u884c\u5217 \u6642\u9593T N<-30 M<-30 T<-50 B<-A<-matrix(0,N,M) A[N/2,M/2]<-200 #\u6700\u521d\u306e\u5206\u5e03 for(t in 1:T){ for (i0 in 1:N){ for (j0 in 1:M){ while(A[i0,j0] > 0){ A[i0,j0] <- A[i0,j0]-1 #\u540c\u3058\u3068\u3053\u308d\u306b\u3042\u308b\u8907\u6570\u306e\u70b9\u3082\uff11\u500b\u305a\u3064\u30d0\u30e9\u30d0\u30e9\u306b\u52d5\u304f i<-i0 j<-j0 r <- ru\u2026"}