diff options
| author | Erich Eckner <git@eckner.net> | 2019-10-23 11:20:14 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2019-10-23 11:20:14 +0200 |
| commit | 512adf0c6585fab32e82fb79207cd8f23e787eb9 (patch) | |
| tree | 534e767810fb8e134d9a962a71b55fa3e2655b85 | |
| parent | bd29c3f1f89b984418b657b5bfaea44ec929536c (diff) | |
| download | epost-512adf0c6585fab32e82fb79207cd8f23e787eb9.tar.xz | |
werteunit.pas: tLLWerte.imBei2DDoResSmi() fix Typo
| -rw-r--r-- | werteunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/werteunit.pas b/werteunit.pas index 095345d..d5d414b 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -2266,10 +2266,10 @@ begin // Imaginärteil an Position x,y bei 2d doResSmi-geordneten Werten result:=0; // imRe if x<>0 then - result:=werte[(params.xSteps-abs(x))+abs(y)*params.xSteps]*sign(x); + result:=result + werte[(params.xSteps-abs(x))+abs(y)*params.xSteps]*sign(x); // reIm if y<>0 then - result:=werte[abs(x)+(params.tSiz-abs(y))*params.xSteps]*sign(y); + result:=result + werte[abs(x)+(params.tSiz-abs(y))*params.xSteps]*sign(y); end; procedure tLLWerte.fenstereWerte(xMi,xMa,tMi,tMa: int64; xFen,tFen: tFenster; hg: tExtendedArray); |