"erzeuge Dummy-Werte" kann jetzt auch befüllen

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;