thrust function

Thrust Fault

Thrust Fault

Add Thrust fault with teeth on overlying block

thrust(x, y, h = 1, N=1, REV = FALSE, endtol=0.1, col = "black", ...)

Arguments

  • x: x-coordinates
  • y: y-coordinates
  • h: height of teeth
  • N: NUmber of points along line
  • endtol: percent tolerance on ends of line
  • REV: reverse direction of x-y (teeth on other side)
  • col: color of teeth and line
  • ...: graphical parameters

Returns

Graphical Side effect

Author(s)

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

See Also

teeth

Examples

plot(c(-5,5), c(-5,5), asp=1, type='n' ) ff=list() ff$x=c(-4.850,-4.700,-3.934,-2.528, 0.603, 2.647, 3.861, 2.626) ff$y=c(-4.045,-2.087,-0.710, 0.172, 1.291, 2.087,-0.753,-4.131) ### plot(c(-5,5), c(-5,5), asp=1, type='n' ) thrust(ff$x, ff$y, h=2, N=14, REV=FALSE) ########## reverse side: plot(c(-5,5), c(-5,5), asp=1, type='n' ) thrust(ff$x, ff$y, h=2, N=14, REV=TRUE)
  • Maintainer: Jonathan M. Lees
  • License: GPL (>= 2)
  • Last published: 2024-07-09

Useful links