数理工学モデル化実習やってる人はちょっと前に触ったところですね。かおすかおす。で、こんな記事を見付けてしまって「よっしゃ、俺もJFreeChart使って…」と思いました。が、JFreeChart&サーブレットとか飽きたので(うそw)Rでやってみようかと。ということで作った。引数は順にα、初期値、欲しいデータの個数となってます。ベクトルが返ってくるので、plotとかに投げてください。おわり。
chaos <- function(a,init,n){ array<-c(init) for(i in 0:n){ array <- c(array,a*array[i]*(1-array[i])) } return(array) }
え、Excel?何それ、おいしいの?