diff options
| author | Erich Eckner <git@eckner.net> | 2019-10-22 12:02:00 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2019-10-22 12:02:00 +0200 |
| commit | 6f456c830c36aa333476583708203fc38075ca88 (patch) | |
| tree | 85f6539fac6209828a996e4f69b36624c4447b7f | |
| parent | 00c049d6af218baeedbb4d4c768a31e8ba60adfc (diff) | |
| download | epost-6f456c830c36aa333476583708203fc38075ca88.tar.xz | |
werteunit.pas: tLLWerte.imBei2DDoResSmi(): x,y<0 ist nicht rein-reell!
| -rw-r--r-- | werteunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/werteunit.pas b/werteunit.pas index 30a2b14..519ede4 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -2265,10 +2265,10 @@ begin // Imaginärteil an Position xG+xF,yG+x bei 2d doResSmi-geordneten Werten fehler('tLLWerte.imBei2DDoResSmi(): Position außerhalb des gültigen t-Bereichs abgefragt!'); result:=0; // imRe - if x>0 then + if x<>0 then result:=werte[(params.xSteps-abs(x))+abs(y)*params.xSteps]*sign(x); // reIm - if y>0 then + if y<>0 then result:=werte[abs(x)+(params.tSiz-abs(y))*params.xSteps]*sign(y); end; |