write1sac(RSEIS)
write1sac()所属R语言包：RSEIS
Write one SAC file to disk.
写一个SAC文件保存到磁盘。
译者：生物统计家园网 机器人LoveR
描述----------Description----------
Write one time series trace to a disk. The time series must have header information available.
写一个时间序列跟踪到磁盘上。时间序列必须有头信息。
用法----------Usage----------
write1sac(a1, BIGLONG = FALSE, fn = NULL)
参数----------Arguments----------
参数：a1
参数：BIGLONG
logical, TRUE=long=8 bytes
逻辑，TRUE =长= 8个字节
参数：fn
character, output file name (if null, program will generate file name from date-time
字符，输出文件名（如果为空，程序会生成文件名，日期时间
Details
详细信息----------Details----------
Creates a binary SAC format file on disk for sharing and transfer. The header information for the SAC file is fairly limited.
创建一个二进制的SAC格式的文件在磁盘上的共享和传输。 SAC文件的标题信息是非常有限的。
值----------Value----------
Side effects, writes file on disk
副作用，写入磁盘上的文件
注意----------Note----------
Header information is rudimentary.
报头信息是最基本的。
（作者）----------Author(s)----------
Jonathan M. Lees<jonathan.lees@unc.edu>
参考文献----------References----------
参见----------See Also----------
JSAC.seis, rseis2sac
JSAC.seis，rseis2sac
实例----------Examples----------
## Not run: [＃不运行：]
data(GH)
theENDIAN = .Platform$endian
for(i in 1:length(GH$dt))
{
fn = "GH"
thesta = GH$STNS[i]
thecomp = GH$COMPS[i]
dt = GH$dt[i]
tstart = list(yr=GH$info$yr[i] ,
jd=GH$info$jd[i] ,
mo=GH$info$mo[i] ,
dom=GH$info$dom[i] ,
hr=GH$info$hr[i] ,
mi=GH$info$mi[i] ,
sec=GH$info$sec[i] ,
msec=GH$info$msec[i] ,
dt=GH$info$dt[i] ,
t1=GH$info$t1[i] ,
t2=GH$info$t2[i] ,
off=GH$info$off[i]
)
N = GH$info$n[i]
sig = GH$JSTR[[i]]
a1 = list(fn=fn, sta=thesta, comp=thecomp, dt=dt, DATTIM=tstart,
N=N, units=aunits , amp=sig , IO=list(kind=2, Iendian=theENDIAN, BIGLONG=BIGLONG))
write1sac(a1, BIGLONG=FALSE , fn=NULL)
}
## End(Not run)[＃（不执行）]
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。
|
发表于 2012-9-28 21:47:19
