c**digphs.mac
;digphs.mac, macro to remove the digital filter group delay.
;
; $Id: digphs.mac,v 1.1 1999/10/18 16:53:45 abild Exp abild $
;
;usage: digphs <decim> <dspfvs> [<fixfid>]
def gibsav &gibbs
def ph0sav &phase0
def ph1sav &phase1
def fixfid 0
if &_args eq 2 nofixfid
if &_args ne 3 usage
def fixfid &_arg3
nofixfid:
def dcim &_arg1
def dfvs &_arg2
if &dfvs eq 10 dfvs10
if &dfvs eq 11 dfvs11
if &dfvs eq 12 dfvs12
ty Don't recognize this value of dspfvs: &dfvs
;
dfvs10:
if &dcim eq    2 dec210
if &dcim eq    3 dec310
if &dcim eq    4 dec410
if &dcim eq    6 dec610
if &dcim eq    8 dec810
if &dcim eq   12 dec1210
if &dcim eq   16 dec1610
if &dcim eq   24 dec2410
if &dcim eq   32 dec3210
if &dcim eq   48 dec4810
if &dcim eq   64 dec6410
if &dcim eq   96 dec9610
if &dcim eq  128 dec12810
if &dcim eq  192 dec19210
if &dcim eq  256 dec25610
if &dcim eq  384 dec38410
if &dcim eq  512 dec51210
if &dcim eq  768 dec76810
if &dcim eq 1024 dec102410
if &dcim eq 1536 dec153610
if &dcim eq 2048 dec204810
ty Don't recognize this value of decim: &dcim
go exit
;
dfvs11:
if &dcim eq    2 dec211
if &dcim eq    3 dec311
if &dcim eq    4 dec411
if &dcim eq    6 dec611
if &dcim eq    8 dec811
if &dcim eq   12 dec1211
if &dcim eq   16 dec1611
if &dcim eq   24 dec2411
if &dcim eq   32 dec3211
if &dcim eq   48 dec4811
if &dcim eq   64 dec6411
if &dcim eq   96 dec9611
if &dcim eq  128 dec12811
if &dcim eq  192 dec19211
if &dcim eq  256 dec25611
if &dcim eq  384 dec38411
if &dcim eq  512 dec51211
if &dcim eq  768 dec76811
if &dcim eq 1024 dec102411
if &dcim eq 1536 dec153611
if &dcim eq 2048 dec204811
ty Don't recognize this value of decim: &dcim
go exit
;
dfvs12:
if &dcim eq    2 dec212
if &dcim eq    3 dec312
if &dcim eq    4 dec412
if &dcim eq    6 dec612
if &dcim eq    8 dec812
if &dcim eq   12 dec1212
if &dcim eq   16 dec1612
if &dcim eq   24 dec2412
if &dcim eq   32 dec3212
if &dcim eq   48 dec4812
if &dcim eq   64 dec6412
if &dcim eq   96 dec9612
if &dcim eq  128 dec12812
if &dcim eq  192 dec19212
if &dcim eq  256 dec25612
if &dcim eq  384 dec38412
if &dcim eq  512 dec51212
if &dcim eq  768 dec76812
if &dcim eq 1024 dec102412
if &dcim eq 1536 dec153612
if &dcim eq 2048 dec204812
ty Don't recognize this value of decim: &dcim
go exit
;
dec210:
def crshft 44.7500
def digdel 44
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec310:
def crshft 33.5000
def digdel 33
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec410:
def crshft 66.6250
def digdel 66
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec610:
def crshft 59.0833
def digdel 59
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec810:
def crshft 68.5625
def digdel 68
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1210:
def crshft 60.3750
def digdel 60
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1610:
def crshft 69.5313
def digdel 69
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec2410:
def crshft 61.0208
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec3210:
def crshft 70.0156
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec4810:
def crshft 61.3438
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec6410:
def crshft 70.2578
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec9610:
def crshft 61.5052
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec12810:
def crshft 70.3789
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec19210:
def crshft 61.5859
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec25610:
def crshft 70.4395
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec38410:
def crshft 61.6263
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec51210:
def crshft 70.4697
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec76810:
def crshft 61.6465
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec102410:
def crshft 70.4849
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec153610:
def crshft 61.6566
def digdel 61
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec204810:
def crshft 70.4924
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec211:
def crshft 46.0000
def digdel 46
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec311:
def crshft 36.5000
def digdel 36
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec411:
def crshft 48.0000
def digdel 48
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec611:
def crshft 50.1667
def digdel 50
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec811:
def crshft 53.2500
def digdel 53
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1211:
def crshft 69.5000
def digdel 69
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1611:
def crshft 72.2500
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec2411:
def crshft 70.1667
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec3211:
def crshft 72.7500
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec4811:
def crshft 70.5000
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec6411:
def crshft 73.0000
def digdel 73
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec9611:
def crshft 70.6667
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec12811:
def crshft 72.5000
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec19211:
def crshft 71.3333
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec25611:
def crshft 72.2500
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec38411:
def crshft 71.6667
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec51211:
def crshft 72.1250
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec76811:
def crshft 71.8333
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec102411:
def crshft 72.0625
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec153611:
def crshft 71.9167
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec204811:
def crshft 72.0313
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec212:
def crshft 46.3110
def digdel 46
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec312:
def crshft 36.5300
def digdel 36
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec412:
def crshft 47.8700
def digdel 47
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec612:
def crshft 50.2290
def digdel 50
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec812:
def crshft 53.2890
def digdel 53
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1212:
def crshft 69.5510
def digdel 69
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec1612:
def crshft 71.6000
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec2412:
def crshft 70.1840
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec3212:
def crshft 72.1380
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec4812:
def crshft 70.5280
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec6412:
def crshft 72.3480
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec9612:
def crshft 70.7000
def digdel 70
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec12812:
def crshft 72.5240
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec19212:
def crshft 71.3333
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec25612:
def crshft 72.2500
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec38412:
def crshft 71.6667
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec51212:
def crshft 72.1250
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec76812:
def crshft 71.8333
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec102412:
def crshft 72.0625
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec153612:
def crshft 71.9167
def digdel 71
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
dec204812:
def crshft 72.0313
def digdel 72
eva phase0 (-180*&crshft)
eva phase1 (360*&crshft)
go exit
;
exit:
if &fixfid eq 0 return
def gibbs 0
ft
ph
ift
def phase0 &ph0sav
def phase1 &ph1sav
def gibbs &gibsav
eva datsiz (&datsiz-&digdel)
return
usage:
ty usage: digphs <decim> <dspfvs> [<fixfid>]
return:
ret
end