mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-27 07:36:38 -04:00
Estimate rms of ccf2 without using the 2-dimensional ccf().
This commit is contained in:
parent
316f41996e
commit
791b39fce5
@ -169,19 +169,9 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
|
|||||||
endif
|
endif
|
||||||
|
|
||||||
! Estimate rms on ccf baseline
|
! Estimate rms on ccf baseline
|
||||||
sq=0.
|
call pctile(ccf2(-ia2:ia2),2*ia2+1,40,base)
|
||||||
nsq=0
|
rms=0.6*base !Empirical constant 0.6
|
||||||
jd=(lag2-lag1)/4
|
smax=maxval(ccf2)
|
||||||
do i=-ia2,ia2
|
|
||||||
do j=lag1,lag2
|
|
||||||
if(abs(j-jpk).gt.jd .and. abs(i-ipk).gt.ia/2) then
|
|
||||||
sq=sq + ccf(i,j)**2
|
|
||||||
nsq=nsq+1
|
|
||||||
endif
|
|
||||||
enddo
|
|
||||||
enddo
|
|
||||||
rms=sqrt(sq/nsq)
|
|
||||||
smax=ccf(ipk,jpk)
|
|
||||||
snr1=smax/rms
|
snr1=smax/rms
|
||||||
ccf2=ccf2/rms
|
ccf2=ccf2/rms
|
||||||
if(snr1.gt.10.0) ccf2=(10.0/snr1)*ccf2
|
if(snr1.gt.10.0) ccf2=(10.0/snr1)*ccf2
|
||||||
|
Loading…
Reference in New Issue
Block a user