ここを見ていたら無性にやりたくなったこちらのネタ。 madoka<- function(M,W,C,D,B,K,F,Time){ data<- matrix(0,Time,2) data[1,1]<- M; data[1,2]<- W for(t in 2:Time){ t.counter<- t W<- W + F*W + (B-K)*M M<- M + C - (D+B)*M if((W<0)||(M<0)){ brea…