optimierung neu

1 files changed, 22 insertions, 0 deletions

diff --git a/optimierung.inc b/optimierung.inc
new file mode 100644
index 0000000..80a5cb2
--- /dev/null
+++ b/optimierung.inc
@@ -0,0 +1,22 @@
+{$IFDEF tGausz2dFitParameterBuffer.initSamples}
+//procedure tGausz2dFitParameterBuffer.initSamples(qu: tExtendedArray; xSteps,tSiz,zoom: longint);
+var
+  x,y: longint;
+begin
+  sXSteps:=xSteps div zoom;
+  sTSiz:=tSiz div zoom;
+  setLength(samples,sXSteps*sTSiz);
+  for x:=0 to sXSteps-1 do
+    for y:=0 to sTSiz-1 do
+      samples[x+y*sXSteps]:=0;
+  for x:=0 to xSteps-1 do
+    for y:=0 to tSiz-1 do
+      samples[round(x/(xSteps-1)*(sXSteps-1)) + round(y/(tSiz-1)*(sTSiz-1))*sTSiz]:=
+        samples[round(x/(xSteps-1)*(sXSteps-1)) + round(y/(tSiz-1)*(sTSiz-1))*sTSiz] +
+        qu[x + y*xSteps];
+  for x:=0 to sXSteps-1 do
+    for y:=0 to sTSiz-1 do
+      samples[x+y*sXSteps]:=
+        samples[x+y*sXSteps] / xSteps * sXSteps / tSiz * sTSiz;
+end;
+{$ENDIF}