ImageJでぱらぱらアニメ

• ImageJというソフト（ImageJ）（Wiki）
• アニメーションを作ってみた
• こちらを参考にRでファイルを書き出す
  • 中心に集中していた点がランダムに動いて散らばっていく様子

#NかけM行列  時間T
N<-30
M<-30
T<-50

B<-A<-matrix(0,N,M)
A[N/2,M/2]<-200      #最初の分布
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     #同じところにある複数の点も１個ずつバラバラに動く
			i<-i0
			j<-j0
			r <- runif(1)             #y軸方向の動き
			if(r < 1/3){
			i <- i-1
			}else if(r > 2/3){
			i <- i+1
			}
			r <- runif(1)             #x軸方向の動き
			if(r < 1/3){
			j <- j-1
			}else if(r > 2/3){
			j <- j+1	
			} 
		
			if(i == 0){i <- 1}      #境界条件
			if(i == N+1){i <- N}
			if(j == 0){j <- 1}
			if(j == M+1){j <- M}
			
			B[i,j]<-B[i,j]+1		#動いた後の場所をBに保存
			}
			}
		}
	A<-B
	B<-matrix(0,N,M)
	image(A,col=terrain.colors(20))	
	
	file.name=paste("test",100+t,".png",sep="")
	png(file=file.name)
	image(A,col=terrain.colors(20))
	dev.off()

	}

• ImageJの操作
  1. File > Import > Image Sequence
  2. ファイルを指定する > 開く
  3. 枚数、最初のファイル、何枚おきか　などを指定 > OK
     • これで複数のイメージが重ねられる
  4. Save As > Animated Gif　を選択して保存した
     • Quick Time Movie　という保存形式もある