Tweaking the scaling of red curve.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2730 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-11-14 17:17:02 +00:00
parent 6012a0c7a0
commit c657ffdf41
5 changed files with 8 additions and 12 deletions

View File

@ -1,9 +0,0 @@
subroutine ftnquit
! Destroy the FFTW plans
call four2a(a,-1,1,1,1)
call filbig(id,-1,f0,newdat,nfsample,c4a,c4b,n4)
stop
return
end subroutine ftnquit

View File

@ -28,6 +28,12 @@ subroutine redsync(ss,ntrperiod,ihsym,iz,red)
call pctile(red,iz,50,xmed) call pctile(red,iz,50,xmed)
if(xmed.le.0.0) xmed=1.0 if(xmed.le.0.0) xmed=1.0
red=red/xmed red=red/xmed
smax=0.
do i=1,iz
smax=max(smax,red(i))
enddo
h=50.
if(smax.gt.h) red=red*(h/smax)
return return
end subroutine redsync end subroutine redsync

View File

@ -27,7 +27,6 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest)
sum=0. sum=0.
do j=1,16 do j=1,16
k=ii2(j) + lag k=ii2(j) + lag
! if(k.ge.1) sum=sum + ss(k,i)
if(k.ge.1) sum=sum + ss(k,i) - 0.5*(ss(k+2,i)+ss(k+4,i)) if(k.ge.1) sum=sum + ss(k,i) - 0.5*(ss(k+2,i)+ss(k+4,i))
enddo enddo
if(sum.gt.smax) then if(sum.gt.smax) then

View File

@ -1,4 +1,4 @@
//------------------------------------------------------------- MainWindow //-------------------------------------------------------------- MainWindow
#include "mainwindow.h" #include "mainwindow.h"
#include "ui_mainwindow.h" #include "ui_mainwindow.h"
#include "devsetup.h" #include "devsetup.h"

View File

@ -127,7 +127,7 @@ void CPlotter::draw(float swide[], float red[], int i0) //draw()
y2=0; y2=0;
if(m_bCurrent) y2 = gain*y + 30; if(m_bCurrent) y2 = gain*y + 30;
if(m_bCumulative) y2=3*gain*10.0*log10(jt9com_.savg[i]); if(m_bCumulative) y2=3*gain*10.0*log10(jt9com_.savg[i]);
if(m_bJT9Sync) y2=0.1*gain*red[i] - 20; if(m_bJT9Sync) y2=3.0*gain*red[i] - 20;
if(strong != strong0 or i==m_w-1) { if(strong != strong0 or i==m_w-1) {
painter2D.drawPolyline(LineBuf,j); painter2D.drawPolyline(LineBuf,j);
j=0; j=0;