plotfry: Plot Fry Output
In geophys: Geophysics, Continuum Mechanics, Mogi Models, Gravity

Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/plotfry.R

Plot Fry Output limited by a specified distance.

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

`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

Used for plotting the points attained through the fry method

`x`	x-coordinates
`y`	y-coordinates
`mx`	x center of plot
`my`	y center of plot
`dis`	distance for limiting plot

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

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

dofry, Showfry

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')