スラッシュドット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

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



添付ファイル: fileflower3.png 2437件 [詳細] fileflower2.png 1348件 [詳細] fileflower1.png 1338件 [詳細] fileflower4.png 2475件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:17