余談/お花1
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
//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
終了行:
//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
ページ名: