tung.pulse: Volcanic Pulse Analysis

In RSEIS: Seismic Time Series Analysis Tools

Volcanic Pulse Analysis

Description

given a seiries of pulses, do analysis on each one

Usage

tung.pulse(r, q, dt)

Arguments

r	x-coordinates
q	y-coordinates
dt	deltat, sample interval

Details

Calculates, min, max of edges and center, then models the pulse with a triangular pulse and integegrates.

Value

vector=c(Ex[1], Ex[2], Ey[1], Ey[2], Cx, Cy, ar2, DefInt[1], DefInt[2], sum0) where:

Ex	left minimum
Ey	right minimum
Cx, Cy	center (max?)
ar2	area of triangle
DefInt[1]	integral under curve
DefInt[2]	integral under curve ( bottom triangle removed)
sum0	RMS amplitude

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

peaks

Examples

## Not run: 
data(CE1)

ex <- CE1$x[CE1$x>5.453291 &CE1$x< 5.507338]
why <- CE1$y[CE1$x>5.453291 &CE1$x< 5.507338]
plot(ex, why, type='l')
tung.pulse(ex, why, CE1$dt)

## End(Not run)

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.