R语言 RSEIS包 sigconvGR()函数中文帮助文档(中英文对照)

loveR

sigconvGR(RSEIS)
sigconvGR()所属R语言包：RSEIS

                                        convolve for Ground roll
                                         卷积地滚

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

convolve a set of spikes for extended ground roll.  This is a special case of sigconv.
卷积一组扩展的地面滑跑的尖峰。这是的一个特例sigconv。


用法----------Usage----------


sigconvGR(wigmat, wavepulse)



参数----------Arguments----------

参数：wigmat
matrix of traces with spikes  
钉子的痕迹矩阵


参数：wavepulse
wavelet  
小波


Details

详细信息----------Details----------

This is similar to the sigconv program but it assumes that the ground roll is extrened in time and space as the wave expands.
这是类似的sigconv程序，但它假定地面滑跑extrened波在时间和空间上扩大。


值----------Value----------

Matrix, waveforms
矩阵，波形


注意----------Note----------

the program spreads the sinusoidal wavelet along a band to simulate ground-roll head wave noise.
程序传播的正弦波沿带模拟地面辊的首波噪声。


（作者）----------Author(s)----------



Jonathan M. Lees<jonathan.lees@unc.edu>




参见----------See Also----------

wiggleimage, symshot1, genrick, sigconv
wiggleimage，symshot1，genrick，sigconv


实例----------Examples----------





S1 = symshot1()
dt = S1$dt
###########    these are the reflections S1$GRrec[＃＃＃＃＃＃＃＃＃＃这是反射S1 $ GRrec]

d = dim(S1$smograms)
G1 = matrix( rep(0, length=d[1]*d[2]), ncol=d[2], nrow=d[1])

###   these are the refractions S1$THEORY$trefrac[＃＃这是S1的折射理论$ trefrac]
p = round( S1$THEORY$trefrac[1,]/S1$dt );
G1[cbind(p , 1:d[2])  ] = 1


#### plot the spikes[＃＃＃图的尖峰]
wiggleimage(0.1*G1, dt = -S1$dt, dx = S1$x, col = "black")

grlen = floor(.6/dt)
fgr = 10
tape = applytaper( rep(1, grlen), p = 0.2)
tgr = seq(from=0, by=dt, length=grlen)
siggr = tape*sin(2*pi*fgr*tgr)

##############  convolve the wavelet with the set of spikes[＃＃＃＃＃＃＃＃＃＃＃＃＃卷积小波与组的尖峰]
H1 = sigconvGR(G1, siggr)

############  plot[＃＃＃＃＃＃＃＃＃＃＃图]
wiggleimage(0.1*H1, dt = -S1$dt, dx = S1$x, col = "black")










转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。