余談/お花１

スラッシュドットにCDチェンジャーを自作する人として紹介されていた方の大学時代の作品
Some of my better parametric transcendental formula art
http://matt.wandel.ca/artwork/math_art.html

のコードをRで走らせて、お花を作ってみました。

 flower <- function( colour = "white",back="black" )
 {
   xp<-rep( 0, 1000 )
   yp<-rep( 0, 1000 )
   for( i in 0:1000 ){
     x <- 0.0031415*4*i
 
     rad   <- ( 1.05 + sin( x * 4.5 ) ) * 100
     angle <- x - cos(x * 10) / 10
 
     xp[i] <- 320 + rad * cos( angle )
     yp[i] <- 240 + rad * sin( angle )
   }
   par(bg=back,mar=c(0,0,0,0))
   plot( xp, yp, typ="l", xlab="", ylab="", col=colour )
 }

xp<-rep(0,400)
yp<-rep(0,400)
for (i in 0:400){ 
x<-i* pi/200
rad <- -(.5 * sin(5 * x)) * (.5 * cos(4 * x)) * 1000 
angle<- x + sin(rad / 100) 
xp[i]<- 320 + rad * cos(angle) 
yp[i]<- 240 + rad * sin(angle) }
par(bg="black",mar=c(0,0,0,0))
plot(xp, yp,t="l",xlab=NA,ylab=NA,col="white") 

宇宙から紅白歌合戦に参加している方にも見えます。（笑）

• 勝手コメント：きれいですね。こういうのは関数形にしておいてもらうと R のコンソールに cut & paste してから、いじりやすいのでは？
• 関数にしてみました．色だけ変えられます．
• 需要ないとおもいますけど、背景も変更できるようにしました。
• 上記関数にさらに引数を増やして、違う形の花をランダムにたくさん咲かせるお花畑もRなら簡単ですね。
• すごい...(*o*) -- 2006-02-23 (木) 15:39:46

最新の20件