squared.gain(waveslim)
squared.gain()所属R语言包:waveslim
Squared Gain Function of a Filter
平方增益功能的一个过滤器
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Produces the modulus squared of the Fourier transform for a given filtering sequence.
产生一个给定的滤波序列的傅立叶变换的模的平方。
用法----------Usage----------
参数----------Arguments----------
参数:wf.name
Character string of wavelet filter.
小波滤波器的字符串。
参数:filter.seq
Character string of filter sequence. H means high-pass filtering and L means low-pass filtering. Sequence is read from right to left.
的过滤器序列的字符的字符串。 H是指高通滤波和L是指低通滤波。读取序列是由右至左。
参数:n
Length of zero-padded filter. Frequency resolution will be n/2+1.
零填充的过滤器的长度。频率分辨率将n/ 2 +1。
Details
详细信息----------Details----------
Uses cascade subroutine to compute the squared gain function from a given filtering sequence.
使用cascade子程序计算的平方增益功能,从一个给定的过滤序列。
值----------Value----------
Squared gain function.
平方增益功能。
(作者)----------Author(s)----------
B. Whitcher
参见----------See Also----------
wave.filter, wavelet.filter.
wave.filter,wavelet.filter。
实例----------Examples----------
par(mfrow=c(2,2))
f.seq <- "H"
plot(0:256/512, squared.gain("d4", f.seq), type="l", ylim=c(0,2),
xlab="frequency", ylab="L = 4", main="Level 1")
lines(0:256/512, squared.gain("fk4", f.seq), col=2)
lines(0:256/512, squared.gain("mb4", f.seq), col=3)
abline(v=c(1,2)/4, lty=2)
legend(-.02, 2, c("Daubechies", "Fejer-Korovkin", "Minimum-Bandwidth"),
lty=1, col=1:3, bty="n", cex=1)
f.seq <- "HL"
plot(0:256/512, squared.gain("d4", f.seq), type="l", ylim=c(0,4),
xlab="frequency", ylab="", main="Level 2")
lines(0:256/512, squared.gain("fk4", f.seq), col=2)
lines(0:256/512, squared.gain("mb4", f.seq), col=3)
abline(v=c(1,2)/8, lty=2)
f.seq <- "H"
plot(0:256/512, squared.gain("d8", f.seq), type="l", ylim=c(0,2),
xlab="frequency", ylab="L = 8", main="")
lines(0:256/512, squared.gain("fk8", f.seq), col=2)
lines(0:256/512, squared.gain("mb8", f.seq), col=3)
abline(v=c(1,2)/4, lty=2)
f.seq <- "HL"
plot(0:256/512, squared.gain("d8", f.seq), type="l", ylim=c(0,4),
xlab="frequency", ylab="", main="")
lines(0:256/512, squared.gain("fk8", f.seq), col=2)
lines(0:256/512, squared.gain("mb8", f.seq), col=3)
abline(v=c(1,2)/8, lty=2)
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|