Nothing
flipnodal<-function(s1, d1, r1)
{
##### flip or switch the nodal planes on a focal mechanism
a2 = SDRfoc(s1, d1, r1, PLOT =FALSE)
return(list(strike=a2$az2, dip=a2$dip2, rake=a2$rake2) )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.