diff options
Diffstat (limited to 'epostunit.pas')
-rw-r--r-- | epostunit.pas | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/epostunit.pas b/epostunit.pas index 68a0308..9025534 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -7127,7 +7127,7 @@ end; procedure tWerte.fuelleMitDummys(sT: boolean); var - i,j,ts2: int64; + i,j: int64; begin genauigkeit:=gExtended; transformationen:=tKeineTransformation.create; @@ -7135,21 +7135,18 @@ begin transformationen.xStop:=1; transformationen.tStart:=-1; transformationen.tStop:=1; - _xSteps:=1024; - ts2:=512; - _tSiz:=2*ts2; + _xSteps:=129; + _tSiz:=129; transformationen.xSteps:=_xSteps; - transformationen.tSiz:=_tSiz div 2; + transformationen.tSiz:=_tSiz; if sT then exit; holeRAM(3); - for j:=0 to ts2-1 do - for i:=0 to _xSteps-1 do begin + for j:=0 to _tSiz-1 do + for i:=0 to _xSteps-1 do eWerte.werte[i+j*_xSteps]:= - 2*i/(_xSteps-1)-1; - eWerte.werte[i+(j+ts2)*_xSteps]:= - 2*j/(_tSiz-1)-1; - end; + 1/(1+sqr(i-110)/9+sqr(j-110)/9) + + 1/(1+sqr(i-60)/9+sqr(j-80)/9); end; procedure tWerte.verschiebe(threads: longint; richtung: tInt64Point); |