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

loveR

Klocate(Rquake)
Klocate()所属R语言包：Rquake

                                        Earthquake Hypocenter Location
                                         地震震源位置

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

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

Earthquake Hypocenter Location
地震震源位置


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


Klocate(Ldat, sol = c(0, 0, 0, 0), vel=defaultVEL(6), distwt = 20, errtol = c(0.01, 0.01, 0.01), maxit = 20, Lambda = 1, guessdepth = 6, APLOT = FALSE, stas = list(name = "", lat = NA, lon = NA, z = NA))



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

参数：Ldat
swig pick list  
痛饮的选择列表


参数：sol
vector, initial solution  
矢量，初始解决方案


参数：vel
velocity list  
速度列表


参数：distwt
distance weight parameter  
距离权重参数


参数：errtol
error tolerance  
允许误差


参数：maxit
Maximum number of iterations  
最大迭代次数


参数：Lambda
damping parameter  
阻尼参数


参数：guessdepth
initial depth for guess  
初始深度猜想


参数：APLOT
logical, plot intermediate solutions  
逻辑，图中间解决方案


参数：stas
station list  
电台列表


Details

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

Inversion is done with  SVD.  
与SVD反转。


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

Event location in Lat-Lon-Z-T.
事件位置的纬度，经度-Z-T。


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

Damped least squares.
阻尼最小二乘法。


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



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




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

swig, defaultVEL
痛饮，defaultVEL


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



## Not run: [＃不运行：]

LF = list.files(path=pdir, pattern="p$", full.names=TRUE )

GYPSY2 = vector(mode="list")

for(i in 1:length(LF))
  {
    g1 = getpfile( LF[i], sta=staf )
    ##  points(g1$H$lon, g1$H$lat, pch=8, col='red')[＃点（G1 $ H $离子，G1 $ H $纬度，，PCH = 8，列=红）]

    w1 = which(!is.na(g1$STAS$lat))
    sec = g1$STAS$sec[w1]

    N = length(sec)
    Ldat =    list(
      name = g1$STAS$name[w1],
      sec = g1$STAS$sec[w1],
      phase = g1$STAS$phase[w1],
      lat=g1$STAS$lat[w1],
      lon = g1$STAS$lon[w1],
      z = g1$STAS$z[w1],
      err= g1$STAS$err[w1],
      yr = rep(g1$LOC$yr , times=N),
      jd = rep(g1$LOC$jd, times=N),
      mo = rep(g1$LOC$mo, times=N),
      dom = rep(g1$LOC$dom, times=N),
      hr =rep( g1$LOC$hr, times=N),
      mi = rep(g1$LOC$mi, times=N) )


    NEW = Klocate(Ldat, sol=c(MYLOC$y, MYLOC$x, 6, 0) )

    GYPSY2[[i]] = NEW
   

  }



## End(Not run)[＃（不执行）]



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


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