geophys (version 1.3-8)

plotfry: Plot Fry Output

Description

Plot Fry Output limited by a specified distance.

Usage

plotfry(fry, dis, col = grey(0.7), ann = FALSE, axes = FALSE)

Arguments

fry

list output of dofry

dis

distance to limit plotting to the center

col

color for points

ann

logical, annotation of axes, see par

axes

logical, whether to plot the axes, see par

Value

x

x-coordinates

y

y-coordinates

mx

x center of plot

my

y center of plot

dis

distance for limiting plot

Details

Used for plotting the points attained through the fry method

References

Fry, N., (1979) Random point distributions and strain measurement in rocks Tectonophysics, 60:89-105.

See Also

dofry, Showfry

Examples

RDAT = randFRY(400, LIM=c(0,0, 200, 200) , rlen=5   )
length(RDAT$x)
plot(RDAT$x, RDAT$y, asp=1, pch=".", cex=2)
flag = sqrt( (RDAT$x-mean(RDAT$x))^2  + (RDAT$y-mean(RDAT$y))^2)<75

DAT = list(x=RDAT$x[flag], y=RDAT$y[flag])
 x = DAT$x
    y = DAT$y
 plot(x,y, asp=1, pch=21, col='red', bg='gold', ann=FALSE, axes=FALSE)

FF = dofry(DAT$x, DAT$y )
AF = plotfry(FF, dis=30)

Z = xtractlip(AF)

lines(cluster::predict.ellipsoid(Z$hull), col='red')