diff options
| -rw-r--r-- | Physikunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Physikunit.pas b/Physikunit.pas index 8aec754..68ad65d 100644 --- a/Physikunit.pas +++ b/Physikunit.pas @@ -899,8 +899,8 @@ begin for j:=0 to aX-1 do for k:=0 to aP div 2 do begin // *-i*k*2*pi; tmp:=(fftTmp+j+k*aX)^.re; - (fftTmp+j+k*aX)^.re:= 2*pi/dP/aP * k * (fftTmp+j+k*aX)^.im/aP * byte(3*k < aP); - (fftTmp+j+k*aX)^.im:=- 2*pi/dP/aP * k * tmp/aP * byte(3*k < aP); + (fftTmp+j+k*aX)^.re:= 2*pi/dP/aP * k * (fftTmp+j+k*aX)^.im/aP * byte(4*k < aP); + (fftTmp+j+k*aX)^.im:=- 2*pi/dP/aP * k * tmp/aP * byte(4*k < aP); end; fftw_execute(ffts[i,1,true]); |