powered by
Get the sense of the focal mechanism rake, from the U, V, P, T vectors
GetRakeSense(uaz, upl, vaz, vpl, paz, ppl, taz, tpl)
1, 0 to make sure the region of the T-axis is shaded and the P-axis is blank.
Azimuth of U vector
dip of U vector
Azimuth of V vector
dip of V vector
Azimuth of P vector
dip of P vector
Azimuth of T vector
dip of T vector
Jonathan M. Lees <jonathan.lees@unc.edu>
GetRake
mc =CONVERTSDR(65,25,13) angsense = GetRakeSense(mc$U$az, mc$U$dip, mc$V$az, mc$V$dip,mc$P$az, mc$P$dip,mc$T$az, mc$T$dip)
Run the code above in your browser using DataLab