chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Experiment with compression

Browse Source
This commit is contained in:
Jordan Sherer 2018-11-03 02:57:25 -04:00
parent 2d5b41d4b7
commit b0c57029e8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/ft8/foxgen.f90
View File

@ -117,13 +117,13 @@ subroutine foxgen()
! call plotspec(1,wave) !Plot the spectrum ! call plotspec(1,wave) !Plot the spectrum
! Apply compression ! Apply compression
! rms=sqrt(dot_product(wave,wave)/kz) rms=sqrt(dot_product(wave,wave)/kz)
! wave=wave/rms wave=wave/rms
! do i=1,NWAVE do i=1,NWAVE
! wave(i)=h1(wave(i)) wave(i)=h1(wave(i))
! enddo enddo
! peak2=maxval(abs(wave)) peak2=maxval(abs(wave))
! wave=wave/peak2 wave=wave/peak2
! call plotspec(2,wave) !Plot the spectrum ! call plotspec(2,wave) !Plot the spectrum