mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-28 04:12:32 -04:00
Need to accommodate cases where radio's filter cuts off steeply above 240 or
below 4000 Hz. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6613 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
592625c4bb
commit
2babc3c9c7
@ -62,14 +62,16 @@ subroutine refspectrum(id2,brefspec,buseref,fname)
|
||||
endif
|
||||
enddo
|
||||
|
||||
! Modify these if spectrum falls off steeply inside these stated bounds:
|
||||
ia=nint(240.0/df)
|
||||
ib=nint(4000.0/df)
|
||||
|
||||
fac=fac0
|
||||
do i=ia,1,-1
|
||||
fac=fac*fac0
|
||||
fil(i)=fac*fil(i)
|
||||
enddo
|
||||
|
||||
ib=nint(4000.0/df)
|
||||
fac=fac0
|
||||
do i=ib,NH
|
||||
fac=fac*fac0
|
||||
|
Loading…
x
Reference in New Issue
Block a user