Thread: how to rotate R T comp into N E ?

Started: 2009-06-30 04:37:40
Last activity: 2009-06-30 04:37:40
Topics: SAC Help
weitao
2009-06-30 04:37:40
Hi,All
I have a question while rotating horizontal component with sac. We
can use "rotate to GCP" to rotate N E into R T comp,but how to rotate back
into N E components? Is there an easy way to do this?
thanks for your help.
Best wishes

weitao

  • Arthur Snoke
    2009-06-29 17:23:05
    In the help command for rotate, there are options for rotating "to" and
    "through" a fixed angle. It would be easy to write a macro that could
    give you back the N and E components. I would do test cases to make sure
    it works correctly for you.

    Here is a macro I use to do the "normal" rotation:

    r $1$.n $1$.e
    rtr
    rotate to gcp
    write $1$.r $1$.t
    r $1$.r
    chnhdr kcmpnm "radial"
    write over
    r $1$.t
    chnhdr kcmpnm "trnsvers"
    write over

    If it is named rotaate.m, one calls it for abc.n and abc.e using

    SAC> m rotate.m abc

    On Mon, 29 Jun 2009, weitao wang wrote:

    Hi,All
    I have a question while rotating horizontal component with sac. We can
    use "rotate to GCP" to rotate N E into  R T comp,but how to rotate back
    into N E components? Is there an easy way to do this?
21:45:06 v.b4412d20