diff options
Diffstat (limited to 'epostunit.pas')
| -rw-r--r-- | epostunit.pas | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/epostunit.pas b/epostunit.pas index be7a678..d19c466 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -168,6 +168,7 @@ type function erzeugeBinning(sT: boolean; params: string): boolean; procedure spiegle(threads: longint); overload; procedure spiegle(threads,tMin,tMax: longint); overload; + procedure fuelleMitDummys(sT: boolean); procedure fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung); procedure schreibeWert(var f: textfile; x,y: longint); function exprToFloat(sT: boolean; s: string): extended; @@ -4979,6 +4980,33 @@ begin gibAus('Alle Spiegelthreads fertig!',1); end; +procedure tWerte.fuelleMitDummys(sT: boolean); +var + i,j,ts2: int64; +begin + genauigkeit:=gExtended; + transformationen:=tKeineTransformation.create; + transformationen.xStart:=-1; + transformationen.xStop:=1; + transformationen.tStart:=-1; + transformationen.tStop:=1; + _xSteps:=1024; + ts2:=512; + _tSiz:=2*ts2; + transformationen.xSteps:=_xSteps; + transformationen.tSiz:=_tSiz div 2; + if sT then + exit; + holeRAM(3); + for j:=0 to ts2-1 do + for i:=0 to _xSteps-1 do begin + eWerte.werte[i+j*_xSteps]:= + 2*i/(_xSteps-1)-1; + eWerte.werte[i+(j+ts2)*_xSteps]:= + 2*j/(_tSiz-1)-1; + end; +end; + procedure tWerte.fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung); var i: longint; |