スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Butterworth Filterの様子

Butterworth_Filter.png

library(rgl)
z1 <- matrix(rep(seq(-1.0,1.0,0.01), 201), nrow=201)
z2 <- t(z1)
Dm <- 0.5
z <- 100/(1+(sqrt(z1*z1+z2*z2)/Dm)**8)
x <- (1:nrow(z))
y <- (1:nrow(z))
surface3d(x, y, z, col="lightblue", alpha=0.8)
decorate3d()
スポンサーサイト
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
12 | 2015/01 | 02
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。