Find the moments of the emission on the current spectrum. Written by Buddy Martin to find the mass, momentum and energy in high velocity line wings. Calculates zeroth, first and second moments of the emission in ``red'' and ``blue'' intervals of width ``int.width'' adjacent to a line of width ``gap'' centered on ``Ref pt.''.
Examples:
>> find-moment<CR>
Ref pt., gap, int.width? 0 5 20<CR>
For range ( -25.0, -5.0)
-9.62 KELVIN*(km/s )**1
-149.90 KELVIN*(km/s )**2
-2602.00 KELVIN*(km/s )**3
For range ( 5.0, 25.0)
4.63 KELVIN*(km/s )**1
1.73 KELVIN*(km/s )**2
-682.76 KELVIN*(km/s )**3