Simple fault analysis

Calculates PT-axes, kinematic plane (M), and dihedra separation plane (d)

Usage

fault_analysis(x, ptangle = 90)

Arguments

x

fault object

ptangle

angle between P and T axes in degrees (90 by default) .

Value

list

Examples

f <- Fault(c(120, 120, 100), c(60, 60, 50), c(110, 25, 30), c(58, 9, 23), c(1, -1, 1))
fault_analysis(f)
#> $p
#>       azimuth   plunge
#> [1,] 314.9694 75.19695
#> [2,] 248.4032 15.30354
#> [3,] 342.4517 46.65113
#> attr(,"class")
#> [1] "line"
#> 
#> $t
#>       azimuth   plunge
#> [1,] 116.2068 14.04837
#> [2,] 345.9417 25.61490
#> [3,] 241.3308 10.31892
#> attr(,"class")
#> [1] "line"
#> 
#> $m
#>      dip_direction      dip
#> [1,]      27.35344 85.42739
#> [2,]     310.64119 30.43222
#> [3,]     322.06010 48.49732
#> attr(,"class")
#> [1] "plane"
#> 
#> $d
#>      dip_direction      dip
#> [1,]      289.7677 31.20915
#> [2,]      208.8622 83.16168
#> [3,]      210.2233 67.19865
#> attr(,"class")
#> [1] "plane"
#>