Shell Programming and Scripting

awk '
BEGIN           {LC[1] = LC[2] = LC[3] = 0
                 AC[1] = AC[2] = AC[3] = 0
                 DGARC  = 180 / (atan2(1,1) * 4)
                }
function GETCOORD(C)
                {C[1] = substr($0, 57, 8)
                 C[2] = substr($0, 66, 9)
                 C[3] = substr($0, 76, 5)
                }

NR%2            {GETCOORD (LC)
                 RT = substr($0, 1, 56)
                 next
                }
                {GETCOORD (AC)
                 AVX  = (AC[1] + LC[1]) / 2
                 AVY  = (AC[2] + LC[2]) / 2
                 AVZ  = (AC[3] + LC[3]) / 2
                 DX   = AC[1] - LC[1]
                 DY   = AC[2] - LC[2]
                 DZ   = AC[3] - LC[3]
                 DIST = sqrt(DX ^ 2 + DY ^ 2 + DZ ^ 2)
                 AZI  = (atan2(DY, DX) * DGARC + 180 ) % 180
                 print RT, AVX, AVY, AVZ, $(NF-3), $(NF-2), $(NF-1), $NF, DIST, AZI
                }
' OFMT="%9.1f"  file
A         35089.0 50345.016 9 75   1   2101774 77 70 79   483911.7 2380112.5     137.4 1 1 6 1      11.2      89.5
A         35089.0 50357.016 9 75   1   2111674 77 70 79  484062 2380112.5     136.4 2 1 6 1      11.3      87.0
A         35089.0 50369.016 9 75   1   2 91574 77 69 81   484212.8 2380111.2     136.4 3 1 6 1      11.2      89.5
A         35089.0 50381.016 9 75   1   2 91574 77 71 78   484361.8 2380112.2     135.2 4 1 6 1      11.3      89.0