werteunit.pas: auskommentierte Befehle zur Erzeugung von Dummywerten für FDI-Auswertung

1 files changed, 13 insertions, 0 deletions

diff --git a/werteunit.pas b/werteunit.pas
index 97c60ed..ef8a413 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -682,6 +682,19 @@ begin
     end;
   end;
   params.refreshKnownValues;
+(*  for j:=0 to params.tSiz-1 do
+    for i:=0 to params.xSteps-1 do begin
+      werte[i+j*params.xSteps]:=100*sqr(sin(i/4+j/40));
+      if i<50 then
+        werte[i+j*params.xSteps]:=werte[i+j*params.xSteps]*(1-cos(i/50*pi))/2;
+      if (params.xSteps-i)<50 then
+        werte[i+j*params.xSteps]:=werte[i+j*params.xSteps]*(1-cos((params.xSteps-i)/50*pi))/2;
+      if j<50 then
+        werte[i+j*params.xSteps]:=werte[i+j*params.xSteps]*(1-cos(j/50*pi))/2;
+      if (params.tSiz-j)<50 then
+        werte[i+j*params.xSteps]:=werte[i+j*params.xSteps]*(1-cos((params.tSiz-j)/50*pi))/2;
+      werte[i+j*params.xSteps]:=werte[i+j*params.xSteps] + 50 + 10*random;
+    end; *)
   gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
 end;