april.analA<-function(APALL)
april.fig<-function(AP)
PLOT.MATAP<-function(ascd, tim=1, dt=1,  WIN=WIN, labs=LABS, notes=notes, sfact=1, LOG="", COL=col)
dump.ALOOK<-function(mSW, STA="", FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, sfact=1 )
dump.QLOOK<-function(mSW, STA="", FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, sfact=1 )
ifftshift<-function(x)
fftshift<-function(x)
bisp3cum<-function(signal=1:10,samprate=1,maxlag=0,window='n',scale='b', COL=rainbow(100) )
plot.bisp<-function(signal, samprate, lag, cum, freq,  bisp , COL)
setJAPmap<-function()
japmap<-function(add=FALSE, WIN=MLOC, STA=sta)
japmape<-function(add=FALSE, STA=FALSE)
xeq<-function(x, y, z, wd=10)
jcont<-function(x,y,z, d=0.7)
jimag<-function(x,y,z, d=0.7, col=terrain.colors(50))
jmap<-function()
jsta<-function()
SEESTA<-function(s)
DO.jap.res<-function(files, dir='/home/lees/Site/Fuji/UW/ATEST')
map.jap1.res<-function(file, cmp=rainbow(100) )
plot.jap.res<-function(res, kind=1)
prep.ROSE<-function(infile)
STA.ROSE<-function()
STA1.ROSE<-function(i)
PRINT.sta<-function(stas)
GET.stas<-function(fn)
STA.ALL.ROSE<-function()
MAP.ROSE<-function()
butfiltA<-function(a, ord=ord, fl=fl, fh=fh, deltat=dt, type=type, proto=pro)
butfilt<-function(a, fl, fh, deltat, type, proto)
FILT.spread<-function(x,y, dt, fl=fl, fh=fh, sfact=1, WIN=NULL)
testbutter<-function(x,y, dt)
plotBAR<-function(u, n)
SortAZ<-function(FLS)
doGetAZ<-function(FLS)
AutoGetAmps<-function(FLS)
AutoGetAZ<-function(FLS, ask=FALSE, PS=TRUE)
Rsection<-function(LPF, COMP=1)
getUWwin<-function(PF)
slider.rot<-function(a1)
f<-function(...) {
doCAZI<-function(i, PF)
setCOSOmap<-function(FN, eqs=NULL)
COSOmap<-function(cmp, EQS=NULL, STA=NULL, LAB=NULL)
CAZI<-function(ain, len, shift, p )
TESTBAR<-function()
prose<-function(kros, ex=0, why=0, main = "", add=FALSE, prop = 1, perim=TRUE, style=1,
do.tree<-function(dx, method)
comp.tree4<-function(dx)
comp.tree<-function(dx, meth=c("single","average","median","centroid")   )
see.tree<-function(dend1)
plot.silhouette<-function (x, nmax.lab = 50, max.strlen = 5, main = NULL, sub = NULL,
clust.meth<-function(dis=d)
clust.k<-function(dis=d)
plot.default<-function (x, y = NULL, type = "l", xlim = NULL, ylim = NULL,
dump.get<-function(infofile, datfile, DIR=".", kname=1, kcomp=2)
dump.plot<-function(S1)
dump.Aplot<-function(S1, COMP=c(1:4), WIN=c(0,1), RMINST=FALSE, INTEG=FALSE, FILT=f, rot=FALSE, CINTEG=c(FALSE), LABS=LABS, sfact=1)
get.dump.sta<-function(SIN, stpos, comppos, STA=stastromb)
erf<-function(x)
erfc<-function(x)
ans<-function()
dnext<-function()
par1<-function()
one<-function()
no.dimnames<-function(a)
color.pr<-function(color="white")
plot.default<-function(x, y = NULL, type = "p", xlim = NULL, ylim = NULL,
letter.it<-function(a, corn)
label.it<-function(a="", corn=1)
addtix<-function(side=3, pos=0,   tck=0.005, at=ttics, labels=FALSE, col=2, ...)
itoxyz<-function(i, nx, ny, nlay)
xyztoi<-function(ix, iy, iz, nx, ny, nlay)
jgrid<-function(x,y, col=col)
Fresh.Screens<-function(n)
Get.Screens<-function(n)
screens<-function(n)
ValBAR<-function(n, v=locator() )
LabelBAR<-function(labs)
rowBUTTONS<-function(labs, col=6, pch=4)
whichbutt<-function(v, buttons)
list.funcs<-function()
DELETE.functions<-function()
list.nonfuncs<-function()
local.file<-function(pref, suf)
file.exists<-function(name)
PS.file<-function(pref="RPS_", PRINT=TRUE)
wordsplit<-function(s)
plotsymbols<-function()
get.gnuplot<-function(fn)
plot.gnuplot<-function(ZZ,...)
plot.lyap<-function()
do.grades<-function(ggrades, divs=NULL, cut=0)
show.dist<-function(W)
LETGRADE<-function(g)
erf<-function(x)
heat.sol<-function(x, T0, k, t)
DO.HALFSPACE<-function()
DO.DYKE<-function(a=a, x=x, t=t, k=k, T0=T0, NDIM=TRUE)
ReadSet.Instr<-function(file)
PreSet.Instr<-function()
gpoly<-function(x)
polyval<-function(p,x)
makefreq<-function(n,dt)
FREQS<-function(b,a,w)
response<-function(Kal,key,ff,tt=tt,plotkey=FALSE)
ft<-function(g,n,tstart,dt)
logspace<-function(d1, d2, n=n)
LocalUnwrap<-function(p,cutoff=cutoff)
deconinst<-function(data, sintr, KAL,key, Calibnew, waterlevel=1.e-8)
finteg<-function(data, dt)
kamplot<-function()
ccw<-function(p0, p1, p2)
intersect<-function( l1,  l2)
inside<-function(A, POK )
inpoly<-function(x,y, POK )
jiden<-function(x, y, a, tol)
jperim<-function( x, y, tol)
jdist<-function(x, y)
seeit<-function(j)
quads<-function(x,y, mag)
jfind<-function(KPT)
jident<-function(KPT)
jscal<-function(a, k)
vscal<-function()
get.ray.res<-function(file)
set.res<-function(a, sta)
jscale<-function(a, j)
plot.staparm<-function(lat, lon, nm, ista, g)
plot.stares<-function(res,  stas)
plot.res<-function(a)
get.stas<-function(file)
show.stas<-function(a)
tomo.col<-function(n)
image.SCALE<-function (z, col, x, y = NULL, size = NULL, digits = 2, labels = c("breaks",
HOZscale<-function(z, col, units="", SIDE=1)
see.pal<-function(col)
jelp<-function(fun)
PLOT.image<-function(x,y,z,COL=rainbow(100), ...)
readkammap<-function()
readkamSKS<-function()
pkammap<-function(VMAP)
plotSKS<-function()
plotSKSproj<-function( dfac=0.1)
KAR.get<-function(A, DIR=".", j)
KAR.it<-function(A, DIR=".", ZOOM=FALSE, PICK=1, Pause=0)
KAR.view<-function(A, DIR=".", ZOOM=FALSE, PICK=1, Pause=0, XSTA=NULL)
matchstas<-function(GFIL, STA, COMP)
checkpick<-function(fin, dir="./")
KAR.postview<-function(B, DIR=".", ZOOM=FALSE, PICK=1, Pause=0, XSTA=NULL, APLOT=FALSE, BPLOT=TRUE, COMP=4, s2nwin=2)
Xpostview<-function(K1)
KAR.picker<-function(jump=25, begin=1, flist=f98.250, dir='.', ZOOM=TRUE, pref="TES00", sta="1025" )
KAR.calc<-function(B, DIR=".", rot=FALSE)
UNPAK.calc<-function(LUV)
KAR.Dchug<-function(A, B, CH=choose)
KAR.chug<-function(A, B, DIR=".")
KAR.look<-function(B, DIR=".")
KAR.Getdat<-function(ifile, DIR, ista=0, icomp=0)
KAR.LIM<-function(FIG, WIN=c(0,1))
KAR.4plot<-function(FIG, WIN=c(0,1), LABS=LABS)
KAR.Gdat<-function(ifile, DIR, stloc=1, cmploc=2, XSTA=null)
KAR.Pdat<-function(GFIL)
KAR.door<-function(B, DIR=".")
KAR.Nplot<-function(FIG, COMP=c(1:4), WIN=c(0,1), LABS=LABS, COL=1, ZERO=FALSE)
kar.SETAIN<-function(A1, J)
SETAIN<-function(A1, J, stas, vent)
PMO.LOOK<-function(ain1, p)
KAR.rose<-function(PM, let=1)
KARAZI<-function(ain, len, shift, prev )
brune.fit<-function(amp, dt=1, f1=0.01, f2=15, nw=list(x=c(0,1)), PLOTA=FALSE, PLOTB=FALSE , PLOTP=FALSE, tit="", PICK=FALSE)
win.spec<-function(amp, dt, wins=list(x=c(0,1)) )
KAR.MOM<-function(BFILES, DIR=".", VEC=VEC,  f1=0.01, f2=15, STA=c("1025"), COMP=4, PICK=FALSE, Pause=0 )
SEE.MOM<-function(MOM, DIR=".", VEC=VEC)
KAR.shiftpick<-function(IN, dir)
plot.karmap<-function()
KAR.settit<-function(KD)
GET.CHUGS<-function(NH, sel)
AUTO.CHUG<-function(NH, sel, xpix)
FILES.CHUGS<-function(chugfile , DBfile)
PREP.CHUGS<-function(chuggen, GENDB, NSEL=1:length(chuggen$t1))
PLOT.CHUGS<-function(NH, sel=1, chugs, CATS=NULL, shapes=shapes, REG=FALSE)
PLOT.CHUGZ<-function(ACHUG,  sel=1, CATS=NULL, shapes=shapes, REG=FALSE)
SHAPE.CHUGS<-function(chugs, GH, sel=sel)
chugshaper<-function(DeChug, SEL=1:length(DeChug))
SHOW.CHUGZ<-function(KCHUG, PLOT=FALSE)
LINE.CHUGZ<-function(EX, WHY, W, UCOL, COLS)
GET.Kseis<-function(fnames, kind=1, PLOT=FALSE, TWIN=c(0,1))
REPLOT.CHUGS<-function(chugs, sel=sel)
RESHAPE.CHUGS<-function(chugs, sel=sel)
chug.pulse<-function(r,q, dt)
chug.err<-function(KCHUG, i , PLOT=TRUE)
EstChugErr<-function(ex, amp, PLOT=FALSE, dt=0.008, j1=6, j2=2 )
chug.cluster<-function(KCHUG, i , PLOT=TRUE)
see.chug.cluster<-function(KCHUG, i , GROUP=fannyx$clustering)
RECLUST.CHUGS<-function(chugs, sel=sel)
get.the.chugs<-function(KCHUG, i)
permark<-function()
setupkrafmap<-function()
krafmap<-function()
getdem<-function(infile)
plotdem<-function(dem, add=FALSE)
PICK.KRAFLA<-function(GH, sel=1:length(GH$dt), WIN=NULL, PF=NULL, APIX=NULL, SHOWONLY=FALSE)
Kmot.SEISN<-function(GH, sel=1:3, WIN=NULL, ANG=0, title="")
lagwind<-function(lag=1,window='uniform')
vloc<-function()
get.win.ids<-function()
MAPconstants<-function()
setzoom<-function()
mlocate<-function()
plottarg<-function(MLOC)
setEQSLOCS<-function(F)
setEQSLLZM<-function(FL, LLIM=NULL )
setMarkup<-function(LABS=NULL)
Markup<-function(MM=MM, cex=cex, ...)
MAPID<-function()
KMscale<-function(kmL=kmL, len=500, units="km")
VANE<-function(vane=vane)
setGenmap<-function(FN, setlim=FALSE)
GENmap<-function(cmp, ADD=TRUE, ASP=TRUE, DIR=0)
GPROJm<-function(cmp, LAT=x, LON=y, pts=NULL, ADD=TRUE, WIN=NULL,
projtype<-function()
setPROJ<-function(type=1, LAT0=LAT, LON0=LON ,LAT1=LAT,  LAT2=LAT,LATS=NULL, LONS=NULL, DLAT=NULL, DLON=NULL,FE=0,FN=0)
GLOB.XY<-function(LAT, LON)
XY.GLOB<-function(x, y)
InRect<-function(x, y, X1, Y1, X2, Y2)
SELmap<-function(cmp,WIN=NULL)
PROJmap<-function(cmp, pts=NULL, ADD=TRUE, WIN=NULL, ASP=TRUE, NUM=FALSE,
AXESmap<-function(cmp, GRID=FALSE, WIN=NULL, ...)
PROJpoints<-function(lat, lon, COL=1, PCH=6, LAB=NULL)
PROJbox<-function(box, COL=1)
SUBmap<-function(cmp, tbox, pts=null)
merc.sphr.xy<-function(LON0, phi, lam)
merc.sphr.ll<-function(LON0, x, y)
utm.sphr.xy<-function(  phi,  lam)
utm.sphr.ll<-function( x, y)
lambert.cc.xy<-function(phi,lam)
lambert.cc.ll<-function(x,y)
twostaZ<-function(dep=dep, sta1=list(d=40, r=120), sta2 = list(d=340,r=1060), vp = 3000.0, pts=pts)
focmec<-function(az1, dip1, az2, dip2)
dip.points<-function(az1, dip1, az2, dip2 )
pole.points<-function(az1, dip1, az2, dip2 )
TP.2.XYZ<-function(trend, dip)
null.plane<-function(az1, dip1, az2, dip2)
dip.point<-function(az1, dip1  )
circ.tics<-function()
fmtraj<-function(dip, az, iang)
prep.cor<-function(MJALL2, MSTAS,MCOMPS )
set.cor<-function(allcor, env=e1)
seeV<-function(MYALL,STA="", N=4, fl=fl, fh=fh)
seeMYSPEC<-function(MYALL,STA="", N=4, fl=fl, fh=fh)
seeMYFILT<-function(MYALL,STA="", N=4, fl=fl, fh=fh)
compfilt<-function(MYALL,STA="", comps)
myak.Xtract<-function(mSW, STA="KAC", COMP="Vertical", BEF=1, AFT=5, FV=FV, PLT=FALSE )
slabcont<-function(x,y,z, levs=25,  POL=POL)
NANMAP <-function(PLOT=TRUE, WIN=GL)
donan<-function(WIN=ECzoom)
MAXCUT<-function(YX,YZ,thresh=5, dkm=100)
NAMARKS<-function()
GreatDist<-function( LON1,  LAT1,  LON2,  LAT2)
AlongGreat<-function( LON1,  LAT1,  km1, ang )
focpoint<-function(az1, dip1, col=2, pch=5, lab="", UP=FALSE, PLOT=TRUE )
uppoint<-function(A)
upvec<-function(A, col=2)
fpoint<-function(az1, dip1, col=2, pch=5, lab="", UP=FALSE )
qpoint<-function(az, iang, col=2, pch=5, lab="", POS=4, UP=FALSE, PLOT=FALSE )
circ<-function()
HFOC<-function(H)
rectify.angle<-function(iang)
FixDip<-function(A)
DOT<-function(A1, A2)
LEN<-function(A1)
NORM<-function(A1)
ROT<-function(N, M)
CROSS<-function(A1, A2)
CROSS.DIP<-function(A1, A2)
FLIP<-function(A1)
XprodLL<-function(  deglon1, deglat1,   deglon2, deglat2  )
xprod<-function(A1,A2)
vlen<-function(A1)
DANG<-function(A1,A2)
TOCART<-function(az, nadir)
TOSPHERE<-function(x, y, z)
tocart<-function(A)
tosphere<-function(A)
TOCART.DIP<-function(az, dip)
TOSPHERE.DIP<-function(x, y, z)
AXpoint<-function(UP=TRUE)
EApoint<-function()
pcirc<-function(gcol)
rotx<-function( deg )
REFLECT<-function(A)
Preflect<-function(az, dip )
CONVERTSDR<-function(strike, dip, rake)
net<-function(add)
getM<-function(FROM, TO)
prang<-function(a)
PRINTMC<-function(M)
MOD<-function(k, m)
fmod<-function(k, m)
faultplane<-function(az,  dip,  col = par("col"), PLOT=TRUE, UP=FALSE) 
POLYFOC<-function(H, PLOT=FALSE)
bang<-function(x1,y1,x2,y2)
polyfoc<-function(strike1, dip1, strike2, dip2, PLOT=FALSE, UP=TRUE)
lowplane<-function( az, dip, col = par("col"), UP=FALSE) 
GROTATE<-function()
JROTATE<-function(pfile)
MROTATE<-function(pfile)
AROTATE<-function(North, East, Down)
pplanes<-function(B1)
imatestrgb<-function (mat3d,ngris=64,stretch=" ",ver=T)
rescale<-function(vector, oldmin = min(vector), oldmax = max(vector), newmin = 0,
imagen<-function(x,col="bn",add=F)
replot3<-function(rx)
replotSO<-function()
tomo.col<-function(n)
pal1.col<-function(n)
shade.col<-function(n, acol=c(1,0,0) )
plot.pal1<-function(col, ypos=0, add=FALSE)
plot.pal<-function(col, ypos=0, dy=1, add=FALSE)
see.pals<-function()
doHODO<-function(FLS, rot=FALSE, PS=TRUE)
autoHODO<-function(FLS, rot=FALSE, PS=TRUE)
testparm<-function(x, rot=FALSE, PS=FALSE)
HODO<-function(a1, rot=FALSE, PS=FALSE)
ptrace3<-function(ain, HODO=FALSE, rot=FALSE  )
plot3comp<-function(ain)
plot3co<-function(ain)
tracepick<-function( ascd, ex, labs=labs, ID="")
PMOtrace<-function(ascd, tim=1, labs=LAB, PS=FALSE, ID="")
ptrace<-function(ascd, tim=1, labs=LAB)
ptraceA<-function(ascd, tim=1, labs=LABS)
seltrace<-function(ascd)
DO.PMOT.ARR<-function(E, N)
pmotion<-function(ascd, X, Y , xlim=xx, ylim=yy, labs=labs, tit=TIT, PLPOINTS=FALSE, COL=0)
pmot3<-function(ascd, X, Y , xlim=xx, ylim=yy, labs=labs, tit=TIT)
ptraceB<-function(ascd, K, tim=1)
ptrace2<-function(ascd, K, tim=1)
slider.hodo<-function(abaz, ex)
  f<-function(...) {
pmosel<-function(dat, ex, title="", PS=FALSE)
ptraceW<-function(ascd, K, tim=1)
wazi<-function(ain, len, shift, p )
Cazi<-function(ain, len, shift, p )
plot.t1t2<-function(ain)
plot.ps<-function(ain)
plot.medbars<-function(ain, wex, aaz)
grotseis<-function(ang, flip=FALSE)
read3comp<-function(len, shift, show.it, man.pick)
POL.AZ<-function(Ofile)
test.drive<-function(Xamp, DT)
SPECT.drive<-function(Xamp, DT=0.008)
wlet.drive<-function(Xamp, DT=0.008)
PLOT.WPX<-function(t0, STNS, COMPS, WPX)
PICK.GEN<-function(GH, sel=1:length(GH$dt), WIN=NULL, APIX=NULL, SHOWONLY=FALSE, CHOP=FALSE)
srot<-function(dat, i)
pmosel<-function(dat, ex, PS=FALSE)
ptraceW<-function(ascd, K, tim=1)
printmc1<-function(M)
printmcrak<-function(RAK)
printmc0<-function(M)
seeoneM<-function(pf, stafile=coso.sta.SMALL, velfile=velfile, PLOT=TRUE, ALL=TRUE)
see1M<-function(pf, MAP=FALSE)
Fmotion<-function(RAK)
seeMech<-function(pf, stafile=coso.sta.SMALL, velfile=velfile, PLOT=TRUE, ...)
seeALLcosoM<-function(Mpf)
seeALLM<-function(Mpf, eqs=eqs, stas=stas)
PPLOT<-function(pf, stafile=coso.sta.SMALL, velfile=velfile)
get.ref.file<-function()
plotfoc<-function(RAK)
Simplefoc<-function(RAK)
Simplerfoc<-function(RAK)
SHFTNSCALE<-function(x,x1, minx, maxx, siz)
PLfoc<-function(x1, y1, siz,  GF, COL=gray(0.95)  )
Calcfoc<-function(RAK, PLOT=FALSE)
radP<-function( del, phiS, lam, ichi, phi)
radSV<-function( del, phiS, lam, ichi, phi)
radSH<-function( del, phiS, lam, ichi, phi)
Plot.Planes<-function(RAK)
Plot.UWPlanes<-function(M)
radiateP<-function(RAK, SCALE=FALSE, col=col)
radiateSV<-function(RAK, SCALE=FALSE, col=col)
radiateSH<-function(RAK, SCALE=FALSE, col=col)
imageP<-function(phiS, del , lam, SCALE=FALSE, UP=FALSE, col=NULL )
imageSV<-function( phiS, del, lam, SCALE=FALSE, UP=FALSE, col=NULL )
imageSH<-function( phiS, del, lam, SCALE=FALSE, UP=FALSE, col=NULL )
mc2cart<-function(az, dip)
GetRakeSense<-function(uaz, upl, vaz,  vpl , paz,  ppl,  taz, tpl)
MRake<-function(M)
plotfocPAPER<-function(RAK, SCALE=FALSE, col=rainbow(20) )
radiationRATIO<-function(RAK )
Motate<-function(x,y,z, a1=(-45), i=30, type='l', rbow=rainbow(100), pch=19, labs=c("E", "N", "Z"), grid=TRUE, box=TRUE, xyproj=FALSE, title='' )
Aotate<-function(x,y,z, a1, iseq=seq(from=0, to=360, by=10), ...)
Jotate<-function(x,y,z, a1, iseq=seq(from=0, to=360, by=10), sta=Dsta )
Xotate<-function(x,y,z, a1, iseq=seq(from=0, to=360, by=10), sta=Dsta )
parseFN2STA<-function(fn)
getSEGY<-function(file)
fillsegy<-function(SEGY.h)
seisrot<-function(dat, sleeper=0.002)
srot<-function(dat, i, plot=FALSE)
pseis<-function(dat)
pseis2<-function(ascd)
seisglyph<-function(ampv, xz, inx1, inx2, iny1, iny2, lcol=0,  border=1, rcol=1)
GET.seis<-function(fnames, kind=1, PLOT=FALSE)
testGG<-function(GG)
prepGG3<-function(GG)
plotGG3<-function(GG)
PLOT.SEISN<-function(GH, tim=1, dt=1,  sel=sel, WIN=WIN, labs=LABS, notes=notes, sfact=1, LOG="", COL=col, add=1, pts=FALSE, YAX=FALSE)
Zdate<-function(info, sel, t1)
PMOT.SEISN<-function(GH, sel=1:length(GH$dt), WIN=NULL)
ZOOM.SEISN<-function(GH, sel=1:length(GH$dt), WIN=NULL)
QL.SEISN<-function(GH, sel=1:length(GH$dt), WIN=NULL, FILT=list(ON=FALSE, fl=5, fh=35.0, type="BP", proto="BU"), ang=114.5)
PICK.SEISN<-function(GH, sel=1:length(GH$dt), WIN=NULL)
PICK.CHUGZ<-function(GH, sel=1:length(GH$dt), WIN=NULL)
CUT.SEISN<-function(GH, sel=1:4, WIN=NULL)
CHOP.SEISN<-function(GH, sel=1:4, WIN=NULL)
FILT.SEISN<-function(TH, sel=1:length(TH$JSTR), FILT=list(ON=FALSE, fl=0.5, fh=7.0, type="HP", proto="BU"))
EVOL.SEISN<-function(GH, sel=1:length(GH$dt), WIN=NULL, ygrid=TRUE, Nfft=4096, Ns=250, Nov=240, fl=0, fh=10  )
PPIX<-function(zloc, YN=NULL, col=1, lab='')
plocator<-function(COL=1, NUM=FALSE, YN=NULL, style=0)
maxpick<-function(NH, x, sel=1, tol=10 )
dlocator<-function()
vlocator<-function(COL=1, NUM=FALSE)
zlocator<-function(COL=1, ID=FALSE, NUM=FALSE, YN=NULL, style=0)
pixplotter<-function(X, COL=1, NUM=FALSE, YN=NULL)
readwpix<-function(fn)
autopick<-function(y, cen=as.integer(length(y)/2))
ratcurve<-function(y, dt=0.008, fwlen =  125,  bwlen  = 125, PLOT=FALSE)
lot<-function(x,y){
jot<-function(x){
zlot<-function(x, dt)
tplot<-function(x,y,xlab=deparse(substitute(x)),ylab=deparse(substitute(y)),...)
next2<-function(x)
which.outlier<-function(vec, m=1)
RESCALE<-function(x, nx1, nx2, minx, maxx)
addlines<-function(ex, y, OLDY, lty=2, AX=TRUE, LAB="", col=1)
stats<-function(d)
tufteboxplot<-function(istr, OR=1:length(istr), ALAB=FALSE, OL=FALSE)
Get.S2N<-function(g , dt, t1, twin )
ampsp<-function(x, plot=FALSE){
Xspec<-function(x1, x2)
GT<-function()
envelope<-function(x)
hilbert<-function(x)
####ra<-function(fn){
MTMdisp<-function(a, f1=f1, f2=f2, len2=1024, PLOT=FALSE)
MTMplot<-function(a, f1=f1, f2=f2, len2=1024, PLOT=FALSE)
spec<-function(a, f1=f1, f2=f2, len2=1024, PLOT=FALSE)
specl<-function(a, f1=f1, f2=f2)
add.brune0<-function(a,tstar,fc,Omega0, icol, f1=f1, f2=f2, plog=FALSE)
add.brune<-function(a,tstar,fc,Omega0, gamma=2, icol=2, f1=f1, f2=f2, plog=FALSE)
tsplot<-function(a)
brune<-function(f,tstar,fc,Omega0)
gettstar<-function(H, f,fc,Omega0)
hilow<-function(y)
extrema<-function(x, y, smooth=TRUE , plot=FALSE)
trapz<-function(y, dt)
integ1<-function (x,y,dm=-Inf,hm=+Inf)
defintegral<-function(y, dt)
applytaper<-function(f, p=0.05)
detrend<-function(x)
mtapspec<-function(a, dt, klen=length(a), MTP=NULL)
seemspec<-function(Mspec, maxfreq=10)
plot.mtm<-function(ma, PLOT=1, LOG='x')
plspec<-function(ma, PLOT=1, LOG='x')
evolfft<-function(a, dt=0, Nfft=0,  Ns=0, Nov=0, fl=0, fh=10 )
plotevol<-function(DEVOL, log=0,  fl=0, fh=10 , col=col, ylog=FALSE, ygrid=FALSE)
plotevolM<-function(DEVOL, log=0,  fl=0, fh=10 , col=col, ylog=FALSE, ygrid=FALSE)
pevol<-function(cha)
genrick<-function(freq,dt,nw)
sourcelees<-function(LeesR)
dyner<-function()
spikeplot<-function(x,y)
brune.func<-function( freq,  omega0,  tstar0, fc, alpha, gamma)
brune.score<-function(f, spec, jbrune, f1, f2 )
brune.search1<-function(f, sp, omega0, tstar0 , fcorn,  alpha, gamma )
brune.search<-function(infreq, inspec, f1, f2, omega0, fcorn, tstar0, gamma  )
get.cornerA<-function( x, y)
get.corner<-function( INfreq, INspec, dt, f1, f2, PLOT=FALSE)
dump.NLOOK<-function(mSW, COMP=c(1:4), FV=NULL, RMINST=RMINST, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, sfact=1, Pause=0 )
dump.LOOK<-function(mSW, STA="", FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, rot=FALSE, sfact=1, Pause=0 )
dump.CLOOK<-function(mSW, STA="", FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, sfact=1 )
dump.SPIN<-function(mSW, STA="", FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),  INTEG=FALSE, rot=FALSE, sfact=1 )
dump.Nplot<-function(FIG, COMP=c(1:4), WIN=c(0,1), RMINST=FALSE, INTEG=FALSE, FILT=f, rot=FALSE, CINTEG=c(FALSE), LABS=LABS, sfact=1)
ename<-function(NNN)
stromb.rot<-function(SIN, comps=c(2,3,4), vent=1, STA=stastromb, INTEG=FALSE, FILT=FALSE, rot=FALSE, sfact=1)
spin.rot<-function(SIN, comps=c(2,3,4),  angles=a, INTEG=FALSE, FILT=FALSE , sfact=1, PLOT=TRUE, LOOK=TRUE, FPARM=fparm, WIN=w)
dump.rot<-function(SIN, comps=c(2,3,4), ang=45, INTEG=FALSE, FILT=FALSE , PLOT=TRUE, sfact=1, FPARM=fparm, WIN=w)
ROTSTROM<-function(SALL, lens , CMP, ANGS)
SEESTROM<-function(SALL, lens , CMP, ANGS)
PLOT.ADDN<-function(n, pch=1, col=1)
PLOT.MATN<-function(ascd, tim=1, dt=1,  WIN=WIN, labs=LABS, notes=notes, sfact=1, LOG="", COL=col, add=1)
FILT.MATN<-function(dat, dt, FILT)
parse.pde<-function(card)
parse.evcard<-function(card)
fix.ev<-function(ev)
set.ev<-function(v)
event.card<-function(ev)
PLOT.LISTN<-function(ldat , N=N, tim=1,    WIN=WIN, labs=LABS, notes=notes, sfact=1,  COL=col)
PLOT.MAT3<-function(ascd, tim=1, labs=LABS, sfact=1)
PLOT.MAT.Aold<-function(ascd, tim=1, labs=LABS)
PLOTSTROMB<-function(NSTRMAP, lonrange=lonrange, latrange=latrange, STA=stastromb)
strmbcont<-function(x,y,z, levs=15,  POL=POL)
pstromb<-function(STRMAP=STRMAP, lonrange=lonrange, latrange=lonrange, STA=stastromb, tight=FALSE)
check.stromb<-function(SN, INTEG=FALSE, FILT=FALSE, rot=FALSE)
check.stromb<-function(SN, J, INTEG=FALSE, FILT=FALSE, rot=FALSE)
stromb.AIN<-function(A1, J, vent, STA, INTEG=FALSE, FILT=f)
check.response<-function(EJALL)
stromb.STACKER<-function(SELDA, tvert=30, prevert=7, tacoust=3, preacoust=1, WINDOWS=NULL)
etna.PIX<-function(mSW, STA=seq(from=2, to=7), FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),
dump.Nstagath<-function(mSW, STA="KAC", COMP="Vertical", NUM=5, BEF=1, AFT=5, FV=NULL)
dump.NPIX<-function(mSW, STA=seq(from=2, to=7), FV=NULL, RMINST=FALSE, CINTEG=c(FALSE, TRUE, TRUE, TRUE),
etna.Xtract<-function(mSW, STA=2, Wlen=30, FV=FV, sfact=1, Pause=0, PLT=FALSE )
etna.Xtract3<-function(mSW, STA=c(2,3,4),  ORD=ORD , Wlen=30, FV=FV, sfact=1, Pause=0, PLT=FALSE )
etna.Xtract4<-function(mSW, STA=c(2,3,4),  ORD=FALSE , Wlen=30, FV=FV, sfact=1, Pause=0, PLT=FALSE )
etna.test<-function(SMAT)
etna.clust1<-function(SMAT, FH=FH, dt=dt, KOR=KOR, KCLUST=temp, ORD=FALSE, DECON=FALSE, PRE=NULL, TIT="", GROUPS=3)
etna.exam<-function(amp, dt, flow = 1/50,  fhigh = 1/5)
etna.3comp<-function(DA1, DA2, DA3)
liblibs<-function()
MakeName<-function(pref)
recdate<-function(jday, hr, mi, sec)
secdif<-function(jday, hr, mi, sec, jday2, hr2, mi2, sec2)
jday<-function(yr, mo, day)
fromjul<-function(jul, yy)
tojul<-function(year, month, day)
getjul<-function(year, month, day)
getmoday<-function(jul, iyear)
pdate<-function(odate, pr=FALSE)
ptime<-function(GFIL, YN=1)
addsec<-function(odate, sec)
plotK<-function(K)
plotK3<-function(K)
error.bar<-function(x, y, lo, hi, pch=sym, col=clr, barw=0.1, add=FALSE, ...)
read.DUMP<-function(infof, dataf)
hypot<-function(x1,y1,x2,y2)
hypotL<-function(x)
rotmat<-function(alph)
rotseis<-function(k)
rotseis2<-function(A, k)
plotseis3<-function(A, amp)
pwd<-function()
cormat<-function(n, h)
slice<-function(x,y,r,a1, a2, col)
flower<-function(x, y, z)
greatAz<-function(lat1, lon1, lat2, lon2)
GCLCFR<-function(t)
gclc<-function(phiorg, lamorg, phi, lam)
lcgc<-function(phiorg, lamorg, ex, why)
STA.dist<-function(  azis, zvals, asta)
distaz<-function( olat, olon, tlat, tlon)
reg<-function(x,y)
VarRed<-function(X,Y, SEQ=SEQ)
peaks<-function(series,span=3)
SANG.CHUGZ<-function(ACHUG,  sel=1, CATS=NULL, shapes=shapes, REG=FALSE)
SEEALL.CHUGZ<-function(ACHUG, I=1, PLOT=c(0, 1, 2))
colplot<-function(Aex, Ay,  cols = terrain.colors(100))
phasetraj<-function(x, tau, cols, ...)
Btraj<-function(ex,why, tau=14)
animate.phase<-function(x, y, tau)
 ##  RESCALE<-function(x, nx1, nx2, minx, maxx)
phase.portrait<-function(x, dtau=1:24, cols=rainbow(100), title="", asp=TRUE)
search.portrait<-function(SCHUGZ,  cols = terrain.colors(100))
SIG.ANAL<-function(ex, why, DT=0.008, WINS=cW, DO=1, col=terrain.colors(100))
integ<-function (x,y)
f<-function(...) {
f<-function(...) {
f<-function(...) {
toep<-function(column,row)
CALCOL<-function()
xytopper<-function(jtop)
jtoppersp<-function(jtop, win=MLOC)
makeimag<-function(x,y,z, d=0.7, col=terrain.colors(50), dx=100)
PersPROJmap<-function(cmp, PMAT, pts=NULL, ADD=TRUE, WIN=NULL, ASP=TRUE, NUM=FALSE,
jinv<-function(X, tol = sqrt(.Machine$double.eps))
PersAXESmap<-function(cmp, PMAT, PRET=TRUE, GRID=FALSE, WIN=NULL, ...)
PersPROJpoints<-function(PNTS, PMAT, pts=NULL, pch=1, COL=FALSE,  dcol=1, LABS=NULL, pos=3, ...)
READ.TTPIX<-function(fname)
TTPIX.MATN<-function(GFIL, stalist, YN, sel=1:YN)
TTLOC.MATN<-function(GFIL, stalist, TPIX, YN=1, sel=1:YN)
gett1d<-function(velmod, InEv, InSta)
TTLOC<-function(velmod, ev, stas, DATUM=0)
get.dump.res<-function(file, sta=stafile)
get.lq.res<-function(infile="residuals.P", sta=stafile)
DO.map.res<-function(files, dir='/home/lees/Site/Fuji/UW/ATEST')
map.lq.res<-function(pa, MAP=JAPmap, sta=stas,  ZLOC=MLOC, cmp=rainbow(100) )
map.map1.res<-function(file, MAP=JAPmap, sta=stafile,  cmp=rainbow(100) )
plot.map.res<-function(res, kind=1)
prep.ROSE<-function(infile, sta=stafile)
STA.ROSE<-function(sta=stafile)
STA1.ROSE<-function(i)
STA.ALL.ROSE<-function()
MAP.ROSE<-function()
MAPALL.ROSE<-function(WIN=win, MAP=JAPmap, ROSES=MROSE, rscale=1)
pageohist<-function(res)
histores<-function(res, disp=c(5,2), xlim=xlim)
acstats<-function(aclq, flag=TRUE, pch=pch, col=col)
getac<-function(fn)
compac<-function(aclq, acbos, lim=rep(TRUE, length(aclq$id)), zoom=list(x=c(0,1), y=c(0,1))  )
compac1<-function(aclq, acbos, lim=rep(TRUE, length(aclq$id)), zoom=list(x=c(0,1), y=c(0,1))  )
compacf<-function(aclq1, aclq0)
fix.delays<-function(pix="FQ1.pickfiles", fin="fuj1.del")
GSTA.ROSE<-function(sta=stafile, map=mapfunc)
GMAPALL.ROSE<-function(sta=sta, WIN=win, ROSES=MROSE, rscale=1)
setTUNGsense<-function(K)
setUname<-function(TIM, style=0)
getmario<-function(DB=DB, timeA=timeA, timeB=timeB, i)
seemario<-function(DB=DB, timeA=timeA, timeB=timeB)
GLUEseisDUMP<-function(dat, KNOTES)
Get.DumpDat<-function(ifile, DIR, stloc=1, cmploc=2, XSTA=NULL, GLUE=TRUE, DATA=TRUE)
add.pick<-function(ppick, ypick, ipick, m)
plot.WPX<-function(t0, STNS, COMPS, WPX)
tung.pulse<-function(r,q, dt)
PICK.MARIO<-function(GH, sel=1:length(GH$dt), WIN=NULL, APIX=NULL, SHOWONLY=FALSE, CHOP=FALSE)
get1pick<-function(a, STA)
setstas<-function(stafile)
printmc<-function(MC)
getmcard<-function(pf)
writeAcard<-function(LOC)
writeDOTcard<-function(STAS)
unpackAcard<-function(AC)
getacards<-function(pf)
getpfile<-function(pf)
Grake<-function(MC)
GOALLM<-function(Mpf)
Get1Dvel<-function(infile)
Plot1Dvel<-function(v)
Comp1Dvel<-function(v, v2)
jlegend<-function (x, y, legend, fill, col = "black", lty, lwd, pch, angle = NULL,
GetUW<-function(fname)
DORAKMAP<-function(RAK, mapfunc=NULL)
plotPF<-function(GU, P, YN, sel)
seePF<-function(wfiles, cut=c(0,1), FOC=FALSE, MAP=FALSE )
vdistF<-function(file)
vdist1<-function(vkam)
vproj<-function(vkam)
vdist2<-function(M)
vpicker<-function(ALLVOL)
wlet.do<-function(why, dt, noctave=6, nvoice=20, flip=TRUE, ploty=TRUE, zscale=1, col=terrain.colors(100))
wlet.plot<-function(baha, why, dt, col=terrain.colors(100), zscale=1, plotsig=1)
gab.plot<-function(baha, why, dt, col=terrain.colors(100), zscale=1, plotsig=1)
Mmorlet<-function(UB=-4, LB=4, N=256, plot=FALSE)
wlet2.do<-function(why, dt, zlog=FALSE, col=terrain.colors(100))
wlet2.plot<-function(baha, why, dt, col=terrain.colors(100))
getlim<-function(a1, a2, dt)
xchug<-function(a1,a2, lim1, dt,tskip)
xchug1<-function(i4, s4, lim1, dt, tskip)
xcrude<-function(a1, a2, dt, tskip)
xcor2<-function(a1, a2, DT, PLOT=FALSE, LAG=100)
xcor3<-function(a1, a2, DT, PLOT=FALSE)
JXCOR<-function(dat, DT, PLOT=FALSE, PIC=FALSE)
PLXCOR<-function(dat, DT, lags, v)
getphaselag<-function(y1,y2, DT, PLOT=FALSE)
GLUEseisMAT<-function(GFIL)
GLUEseisSTR<-function(GFIL)
KARCOR<-function(PIXF, FL = 1/50,  FH = 5,  BEF=2, AFT=8, PLOT=FALSE, ORD=NULL)
GetOrg<-function(name)
PlotOrg<-function(org, style=0)
GXMA<-function(name)
GXMA3D<-function(name)
pltomo<-function(x,y,MOD,i, colmap=tomocolors, zlim=zlim)
pMOD<-function(x,y,D, MOD, I=1, J=2, LOC=TRUE, MAP=NULL)
CMOD<-function(KMOD,...)
setXMCOL<-function()
SHOWPAL<-function(XMCOL, NAME=FALSE, ncol=5)
pickcolors<-function(COLLIST=colors())
syscolors<-function()
newzoep<-function(icoef, vp1, vp2, vs1, vs2, rho1, rho2, incw)
plotzpr<-function( chtype , alpha1, alpha2, beta1, beta2, rho1 ,rho2, chincw, choutkind)
