w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-26 22:28:41 -05:00
Code Issues Packages Projects Releases Wiki Activity

Corrected polarization calculations in symspec.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@376 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-04-27 13:19:36 +00:00
parent 11b3ea184e
commit e3ac05195e
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
symspec.f
View File

@ -48,22 +48,33 @@ C Compute spectra at four polarizations, using half-symbol steps.
savg(1,i)=savg(1,i) + sx savg(1,i)=savg(1,i) + sx
z=cx(i) + cy(i) z=cx(i) + cy(i)
s=0.5*(real(z)**2 + aimag(z)**2) s45=0.5*(real(z)**2 + aimag(z)**2)
ss(2,n,i)=s ! Pol = 45 ss(2,n,i)=s45 ! Pol = 45
savg(2,i)=savg(2,i) + s savg(2,i)=savg(2,i) + s45
sy=real(cy(i))**2 + aimag(cy(i))**2 sy=real(cy(i))**2 + aimag(cy(i))**2
ss(3,n,i)=sy ! Pol = 90 ss(3,n,i)=sy ! Pol = 90
savg(3,i)=savg(3,i) + sy savg(3,i)=savg(3,i) + sy
z=cx(i) - cy(i) z=cx(i) - cy(i)
s=0.5*(real(z)**2 + aimag(z)**2) s135=0.5*(real(z)**2 + aimag(z)**2)
ss(4,n,i)=s ! Pol = 135 ss(4,n,i)=s135 ! Pol = 135
savg(4,i)=savg(4,i) + s savg(4,i)=savg(4,i) + s135
z=cx(i)*conjg(cy(i)) z=cx(i)*conjg(cy(i))
ss5(n,i)=0.5*(sx+sy) + (real(z)**2 + aimag(z)**2 -
+ sx*sy)/(sx+sy) ! Leif's formula:
! ss5(n,i)=0.5*(sx+sy) + (real(z)**2 + aimag(z)**2 -
! + sx*sy)/(sx+sy)
! Leif's suggestion:
! ss5(n,i)=max(sx,s45,sy,s135)
! Linearly polarized component, from the Stokes parameters:
q=sx - sy
u=2.0*real(z)
! v=2.0*aimag(z)
ss5(n,i)=0.707*sqrt(q*q + u*u)
enddo enddo
enddo enddo