スラッシュドット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 )
 }
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") 
flower4.png

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

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


添付ファイル: fileflower3.png 1734件 [詳細] fileflower4.png 1762件 [詳細] fileflower1.png 989件 [詳細] fileflower2.png 989件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Google
WWW を検索 OKADAJP.ORG を検索
Last-modified: 2015-03-01 (日) 01:15:59 (1727d)