余談/お花１ の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 余談/お花１ へ行く。
• 余談/お花１ の差分を削除

//by ac
[[スラッシュドット:http://slashdot.jp/]]に[[CDチェンジャーを自作:http://www.sentex.net/~mwandel/tech/changer.html]]する人として紹介されていた方の大学時代の作品 ~
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 )
  }

#ref(flower3.png)

 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") 

#ref(flower4.png)

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

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

#comment