# plotfry: Plot Fry Output In geophys: Geophysics, Continuum Mechanics, Gravity Modeling

## Description

Plot Fry Output limited by a specified distance.

## Usage

 `1` ```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

## Details

Used for plotting the points attained through the fry method

## Value

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

## Author(s)

Jonathan M. Lees<[email protected]>

## References

Fry, N., (1979) <http://dx.doi.org/10.1016/0040-1951(79)90135-5> Random point distributions and strain measurement in rocks Tectonophysics, 60:89-105.

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17``` ```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') ```