Put a DXpedition "5 signal" mode into ft8sim.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8234 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/ft8/compress.f90

@@ -0,0 +1,55 @@
+subroutine compress(c)
+
+  parameter (NMAX=15*12000)             !Samples in iwave (180,000)
+  complex c(0:NMAX-1)
+  real xr(0:NMAX-1),xi(0:NMAX-1)
+
+  xr=real(c)
+  call wavestats(xr,NMAX,rms,pk,pwr_pk,pwr_ave)
+  xr=xr/rms
+  xi=aimag(c)/rms
+
+  do i=0,NMAX-1
+     c(i)=rms*cmplx(h1(xr(i)),h1(xi(i)))
+  enddo
+  
+!  par=pwr_pk/pwr_ave
+!  write(*,1010) 5,rms,pk,pwr_pk,pwr_ave,par
+!1010 format(i3,2f10.3,3f10.2)
+!  call wavestats(xi,NMAX,rms,pk,pwr_pk,pwr_ave)
+!  par=pwr_pk/pwr_ave
+!  write(*,1010) 5,rms,pk,pwr_pk,pwr_ave,par
+
+  return
+end subroutine compress
+
+real function h1(x)
+
+!  sigma=1.0/sqrt(2.0)
+  sigma=1.0
+  xlim=sigma/sqrt(6.0)
+  ax=abs(x)
+  sgnx=1.0
+  if(x.lt.0) sgnx=-1.0
+  if(ax.le.xlim) then
+     h1=x
+  else
+     z=exp(1.0/6.0 - (ax/sigma)**2)
+     h1=sgnx*sqrt(6.0)*sigma*(2.0/3.0 - 0.5*z)
+  endif
+
+  return
+end function h1
+
+subroutine wavestats(x,kz,rms,pk,pwr_pk,pwr_ave)
+
+  real x(kz)
+
+  sumsq=dot_product(x,x)
+  rms=sqrt(sumsq/kz)
+  pk=max(maxval(x),-minval(x))
+  pwr_pk=pk*pk
+  pwr_ave=sumsq/kz
+  
+  return
+end subroutine wavestats

lib/ft8/ft8sim.f90

@@ -20,9 +20,9 @@ program ft8sim
 ! Get command-line argument(s)
   nargs=iargc()
   if(nargs.ne.8) then
-     print*,'Usage:   ft8sim "message"           s|m  f0    DT fdop del nfiles snr'
+     print*,'Usage:   ft8sim "message"         s|m|d  f0    DT fdop del nfiles snr'
      print*,'Example: ft8sim "K1ABC W9XYZ EN37"   m  1500.0 0.0 0.1 1.0   10   -18'
-     print*,'s|m: "s" for single signal at 1500 Hz, "m" for 25 signals'
+     print*,'s|m|d: s for single signal, m for 25 signals, d for 5.'
      print*,'f0 is ignored when sorm = m'
      print*,'Make nfiles negative to invoke 72-bit contest mode.'
      go to 999
@@ -35,8 +35,11 @@ program ft8sim
   elseif( sorm.eq."m") then
     print*,"Generating 25 signals per file."
     nsig=25
+  elseif( sorm.eq."d") then
+    print*,"Generating 5 signals per file."
+    nsig=5
   else
-    print*,"sorm parameter must be s (single) or m (multiple)."
+    print*,"sorm parameter must be s, m, or d."
     goto 999
   endif
   call getarg(3,arg)
@@ -84,7 +87,13 @@ write(*,'(12i1)') msgbits(76:87)
      do isig=1,nsig
         c0=0.
         if(nsig.eq.25) then
-          f0=(isig+2)*100.0
+           f0=(isig+2)*100.0
+        else if(nsig.eq.5) then
+           f0=1500.0 + (isig-1)*60.0
+           msg(3:3)=char(ichar('A')+isig-1)
+           msg(4:4)=char(ichar('A')+isig-1)
+           msg(5:5)=char(ichar('A')+isig-1)
+           call genft8(msg,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
         endif
         k=-1 + nint((xdt+0.5+0.01*gran())/dt)
 !        k=-1 + nint((xdt+0.5)/dt)
@@ -100,6 +109,9 @@ write(*,'(12i1)') msgbits(76:87)
         if(fspread.ne.0.0 .or. delay.ne.0.0) call watterson(c0,NMAX,fs,delay,fspread)
         c=c+sig*c0
      enddo
+
+     if(nsig.eq.5) call compress(c)
+     
      if(snrdb.lt.90) then
         do i=0,NMAX-1                   !Add gaussian noise at specified SNR
            xnoise=gran()